ADODB.connection ve MS SQL server kullanacaksanız buna benzer bir connection string’ler kullanmalısınız. ** olan yerleri kendi bilgileriniz ile değiştirmeyi unutmayın.
Dim constr As String = "Data Source=.SQLEXPRESS;Initial Catalog=**;Integrated Security=True"
'veya
Dim constr As String = "Driver={SQL Native Client};Server=.SQLEXPRESS;Database=**;User ID=**;Password=****;Trusted_Connection=Yes"
Dim conn As New ADODB.Connection
conn.ConnectionString = constr