El ejemplo que te pongo debes de hacer esto:
Primeramente debes de configurar tu ODBC.
Una vez configurado, debes de Activar la Referencia de Conexion en este caso es Microsoft Active Data Objects 2.7 Library.
DsAdmDemo= Es el nombre de tu ODBC
Despues en un Modulo pon esto:
Public cnBase As ADODB.Connection
Public Rec As Recordset
Sub Abrir()
On Error GoTo Errores
Set cnBase = New Connection
cnBase.CommandTimeout = 1200
usuario = "tuusuario"
Password = "tupassword"
cnBase.Open "Provider=MSDASQL.1;Password=" & Password & ";Persist Security Info=True;User ID=" & usuario & ";Data Source=DsAdmDemo"
cnBase.CursorLocation = adUseClient
Set Rec = New Recordset
With Rec
.ActiveConnection = cnBase
.CursorLocation = adUseClient
.CursorType = adOpenForwardOnly
.LockType = adLockReadOnly
End With
Errores:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, CStr(Err.Number)
Err.Clear
End If
End Sub
'En cuanto al DBGRID te mando un ejemplo a tu correo.