pues aqui te envio algo que estoy usando, aunque soy principiante, pues he logrado conectarme..
Dim conImportCtas As ADODB.Connection
Dim rstImportCtas As ADODB.Recordset
Dim strImportCtas As String
Set conImportCtas = New ADODB.Connection
conImportCtas.ConnectionString = "DSN=CENTRO;SYSTEM=CENTRAL;CMT=0;DBQ=FACTULIB;NAM=0;DFT=5;DSP=1;TFT=0;TSP=0;DEC=0;XDYNAMIC=1;RECBLOCK=2;BLOCKSIZE=256;SCROLLABLE=0;TRANSLATE=1;LAZYCLOSE=1;LIBVIEW=0;REMARKS=0;CONNTYPE=2;SORTTYPE=0;LANGUAGEID=ENU;SORTWEIGHT=0;PREFETCH=0;DFTPKGLIB=QGPL;MGDSN=0;"
conImportCtas.Open
Set rstImportCtas = New ADODB.Recordset
rstImportCtas.ActiveConnection = conImportCtas
rstImportCtas.CursorType = adOpenStatic
rstImportCtas.LockType = adLockReadOnly
rstImportCtas.CursorLocation = adUseClient
rstImportCtas.Open "Select * From UsuarLrt Where SECT = 22 AND NOMBRE Like 'RAMIREZ%'", conImportCtas, adOpenDynamic, adLockOptimistic
rstImportCtas.MoveFirst
