No te recomiendo que uses comandos ADODB ya que a estos comandos tienen q especificar una direccion especifica y no son muy eficientes a la hora de instalar en cualquier pc.
yo por ejemplo uso como base de datos acces97 y para acceder a ella uso el .path que permite abrir en cualquier lado y para agregar los registro lo mas sencillo es usando SQL o los componentes de la libreria DAO3.51
un ejemplo de añadir es:
Public XXXXAs Database
Public Emple As Recordset
Set XXXX= OpenDatabase(App.Path & "\XXXX.Mdb")
Set emple= XXXXX.OpenRecordset("SELECT * FROM Anti_Presta")
Sub añadeemple()
Dim BAci As String
Dim a, baci2 As Boolean
Aci = Val(fmrae.txtci)
a = True
Set Emple = SYSCAN.OpenRecordset("SELECT * FROM empleados where Cedula = " & Aci & "")
On Error GoTo error_agregarEM
Emple.Close
Set Emple = SYSCAN.OpenRecordset("SELECT * FROM empleados")
Emple.AddNew
With Emple
.Fields("cedula") = Aci
.Fields("nombre") = fmrae.txtnombre
.Fields("nacionalidad") = baci2
.
.
.
.
.
End With
Emple.Update
MsgBox "Datos Agregados a Data", vbInformation, "ATENCION"
Exit Sub
error_agregarEM:
MsgBox "Datos Erroneos Verifique y asegurese de llenar todos los campos", vbInformation, "Error de Data"
End If
existe:
End Sub
espero q te sirva...........
Si hice un comentaro errado hacerlo saber
Zx
yo por ejemplo uso como base de datos acces97 y para acceder a ella uso el .path que permite abrir en cualquier lado y para agregar los registro lo mas sencillo es usando SQL o los componentes de la libreria DAO3.51
un ejemplo de añadir es:
Public XXXXAs Database
Public Emple As Recordset
Set XXXX= OpenDatabase(App.Path & "\XXXX.Mdb")
Set emple= XXXXX.OpenRecordset("SELECT * FROM Anti_Presta")
Sub añadeemple()
Dim BAci As String
Dim a, baci2 As Boolean
Aci = Val(fmrae.txtci)
a = True
Set Emple = SYSCAN.OpenRecordset("SELECT * FROM empleados where Cedula = " & Aci & "")
On Error GoTo error_agregarEM
Emple.Close
Set Emple = SYSCAN.OpenRecordset("SELECT * FROM empleados")
Emple.AddNew
With Emple
.Fields("cedula") = Aci
.Fields("nombre") = fmrae.txtnombre
.Fields("nacionalidad") = baci2
.
.
.
.
.
End With
Emple.Update
MsgBox "Datos Agregados a Data", vbInformation, "ATENCION"
Exit Sub
error_agregarEM:
MsgBox "Datos Erroneos Verifique y asegurese de llenar todos los campos", vbInformation, "Error de Data"
End If
existe:
End Sub
espero q te sirva...........
Si hice un comentaro errado hacerlo saber
Zx