ya encontre la forma de conectarme
creee un modulo sub main el cual llama a otro modulo
----------------------------------------------------------------------------------------------------
Public AccessConexion As ADODB.Connection
Public Sub Conecion()
'_________________________________________________ _________________________________________
'crea la coneccion con el ADODB el cual esta creada a un access
'_________________________________________________ _________________________________________
On Error GoTo Error
Set AccessConexion = New ADODB.Connection
AccessConexion.String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\UBVICACIONACCESS.mdb;Jet OLEDB:System Database=system.mdw;User ID=USUARIO;Password=******;"
AccessConexion.Open
Exit Sub
Error:
For Each ErrorBD In AccessConexion.Errors
MsgBox ("Error VB:" & ErrorBD.Number & vbCrLf _
& "Error Access:" & ErrorBD.NativeError & vbCrLf _
& "Error SQL:" & ErrorBD.SQLState & vbCrLf _
& "Generado Por:" & ErrorBD.Source & vbCrLf _
& "Descripción:" & ErrorBD.Description)
Next
Lectura_Form.Show
End Sub
----------------------------------------------
ahora necesito saber como leer y grabar esop
si quieren usar el codico remplasar la que esta en mayuscula y ****