Debes crear un ODBC que se conecte a la base de datos y en VB pones el código:
(ODBCOfertas es mi ODBC)
Public mdb2 As New ADODB.Connection
Public Sub Conectar2()
' Crea un objeto Workspace ODBCDirect y abre un objeto Connection.
mdb2.CursorLocation = adUseClient
mdb2.Open "DSN=ODBCOfertas;SRVR=;DB=;UID=admin;PWD=;SelectMethod=0"
End Sub
Saludos
