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