ADO en Visual Basic

Primero debes asegurarte que las librerías de ADO estén presentes en tu proyecto
En el menú "Proyecto > Referencias" seleccionase el elemento que dice "Microsoft ActiveX Data Objects 2.5 Library"
'Declaras las variables
Public gcnBD as ADODB.Connection
Public grsTablaX as ADODB.Recordset
NombreServidor = "ServidorX"
NombreBase = "Northwind"
Usuario = "sa"
Password = "Principal"
gStrCnn = "Provider=SQLOLEDB.1;" & Password & "Persist Security Info=False;User ID=" & Usuario & ";Initial Catalog=" & NombreBase & ";Data Source=" & NombreServidor
'Abres Conexión a la base de datos
Set gcnBD = New ADODB.Connection
gcnBD.ConnectionString = gStrCnn
gcnBd.Open
'Conexión a una tabla(o combinación de tablas)
Set grsTablaX = New ADODB.Recordset
grsTablaX.CursorLocation = adUseClient
grsTablaX.CursorType= adOpenStatic
grsTablaX.LockType = adLockOptimistic
grsTablaX.Open "Select * From TablaX", gcnBD, , , adCmdText
'Lees su información y haces movimientos.
grsTablaX.Movefirst
txtNombre = grsTablaX!Nombre
'Cierras tabla.
grsTablaX.close
'Cierras conexión a la base de datos.
GcnBD. Close
Si tienes alguna duda dímelo