Foro de elhacker.net

'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