Como conectar visual con una bd access

[J-Billy]

Iniciado por tazzito

agrega en referencias microsoft dao x.xx object library

y es asi

dim base as dao.database, consulta as dao.recordset
set base=opendatabase(rutabase,false)
set consulta = base.openrecordset("select * from clientes",dbopendynaset)

tambien existe y es mas nueva la libreria ado busca informacion sobre ella pero para access es mejor dao ;)

Este es el codigo que agreguè, pero me aparece un error de runtime, lo siento no puedo publicar la liga de la imagen del error...

Código:

Private Sub cmd_guardar_Click()

Dim base As DAO.Database, guardar As DAO.Recordset
Set base = opendatabase("C:\base_prueba.mdb", False)
Set guardar = base.openrecordset("INSERT INTO paciente VALUES('" & txt_idpaciente.Text & "','" & txt_nombre.Text & "','" & txt_apellido_paterno.Text & "','" & txt_apellido_materno.Text & "','" & txt_calle.Text & "','" & txt_numero.Text & "','" & txt_ciudad.Text & "','" & cmb_estado.Text & "','" & cmb_genero.Text & "','" & txt_fech_nac.Text & "')", dbopendynaset)

End Sub