Conectar por ODBC Visual Basic 6.0 a Access

[black_devil]

Hola, en un módulo

Código:

Public sql As String
Public cn  As ADODB.Connection
Public rs As ADODB.Recordset

Código:

Public Sub conexionbd()
'conexion ODBC SQL
Set cn = New Connection
Set rs = New Recordset
With cn
         .ConnectionString = "Provider=MSDASQL.1;Password=123;Persist Security Info=False;User ID=Admin;Data Source=Nombre del sistema en ODBC"   

                     
         .Open
End With
End Sub

NOTA: en el connectionstring el password va si tu bd access tiene pass, y el data source es el nombre que le das a la bd en origenes de datos ODBC