Mira yo me conecto de esta forma pero a una base de sql, problo, cualquier cosa camia algo.
Public conn As ADODB.Connection
Public strConn As String
Public rs As ADODB.Recordset
strConn = "DRIVER={SQL Server};SERVER=nomre del servidor;UID=sa;PWD=;DATABASE=nomre de la base de datos"
Set conn = New ADODB.Connection
conn.ConnectionString = strConn
conn.Provider = "msdasql"
conn.Open strConn
Set rs = New ADODB.Recordset
rs.ActiveConnection = conn
rs.Open ("Select vendedor_id, nombre, comision from venvendedores )
Antes tenes que crear en el panel de control ODBC una conexion a la base de datos
espero que te sirva