Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\Productos"
Set Productos = OpenDatabase(App.Path & "\Productos.mdb")
Set recCliente = Productos.OpenRecordset("Cliente")
Set recProducto = Productos.OpenRecordset("Producto")
End Sub
y declare las variable de esta forma:
Dim Productos As Database
Dim recCliente, recProducto As Recordset
La ultima linea me da error y dice que es el error numero '13' en tiempo de ejecucion, no coinciden los tipos.
si me pueden ayudar por favor, gracias...
