Este código escribe un registro en una Tabla de Microsoft Access

Dim MIBD As Database  ' SE DEFINE EL OBJETO BASE DE DATOS

Dim miRS2 As Recordset ' SE DEFINE EL RECORDSET conjunto de registros

Set MIBD = DBEngine.Workspaces(0).Databases(0) ' se instancia el espacio de trabajo

Set miRS2 = MIBD.OpenRecordset("MITABLA", DB_OPEN_TABLE) ' se instancia el recordset que apunta a la tabla de Acess MITABLA.

miRS2.AddNew   'metodo de añadir un registro en el recordset

miRS2![mate] = "zapatos"

miRS2![Des] = "zapatos de piel de cocodrilo"

miRS2![MES] = "01.2008"

miRS2.Update     ' esta instrucción provoca la escritura del registro en la tabla.