Imports System.Data.SqlClient
Dim Db As New SqlConnection
me.ProgressBar1.Visible=True
Applications.DoEvents
Db.ConnectionString = "Data Source=SQLB10.WEBCONTROLCENTER.COM,1433;Network Library=DBMSSOCN;Initial Catalog=C59onlinefr;User ID=pippo;Password=pluto;"
Db.Open()
Applications.DoEvents
me.ProgressBar1.Visible=False