Utiliza esta rutina seguro te ayudara ademas que puedes realizar inserciones de sql.
Global Cnn2000 As New ADODB.Connection
' Conexion a Base Local de Access 2000
sBase = "Ruta y Nombre de la Base de Access"
Cnn2000.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & sBase & ";" & _
"Jet OLEDB:Database Password="
Cnn2000.ConnectionTimeout = 30
Cnn2000.Open
SkyArm
Ayepez@hotmail.com