This may not be what you are looking for but this should point you in the right direction:
Dim Connect As String = "Provider=SQLOLEDB.1;Password=xxxx;Persist Security Info=True;User ID=xxx;Initial Catalog=Your database name;Data Source=Your server Name"
Dim SQLCMD As String = "Your SQL Command"
Dim myConnection As New OleDbConnection(Connect)
Dim myCommand As New OleDbDataAdapter(strsql, myConnection)
Also, make sure to import the following code above your class: