Hola, hay varias formas de conectar a una BD Access dependiendo del Provider la mas usual es mediante JET.OLEDB
Declarar la conexión (tiene que estar marcada la referencia a ADO)
Dim cn As New ADODB.Connection
Abrir la conexión (en este caso la BD está en el mismo directorio de la aplicación)
cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\NombreBD.mdb"
Declarar una variable de tipo String que contendrá la consulta SQL
Dim Sql As String
Agregar datos a una tabla
Sql = "INSERT INTO LaTabla (campo1, campo2, campo3...) VALUES (variable1, variable2, variable3...)"
Modificar datos de una tabla
Sql = "UPDATE LaTabla SET campo1 = variable1, campo2 = variable2, campo3 = variable3... WHERE criterio =..."
Eliminar datos de una tabla
Sql = "DELETE * FROM LaTabla WHERE criterio = ..."
Para ejecutar la consulta
cn.Execute(Sql)
Para recorrer los resultados, tienes que abrir un recordset y mostrar el mismo en un control Grid
Dim rs As New ADODB.Recordset
Abrir el recordset
rs.Open "Select * from LaTabla", cn, adOpenDynamic, adLockOptimistic
Notas:
"criterio" será algo como 'campox = variablex'
Debes tener en cuenta que las variables si son de tipo String deben ir entre comillas simples (') y si son fecha, entre almohadillas (#).
A grosso modo, eso es todo.
Un saludo.
