Access - Codigo para añadir los valores de los campos de un formulario a una tabla

Dim dbs As Database

  Dim rst As Recordset

  Dim sql As String

  Set dbs = CurrentDb

  sql = "SELECT * FROM Tabla1"

  Set rst = dbs.OpenRecordset(sql)

  with rst

     .addnew

     !Campo1= Me.Variable1

     !Campo2=Me.Variable2

    .update

    .close

 end with

  If rst.RecordCount > 0 Then  'Comprueba si existen asientos sin aplicar

    MsgBox "Existen Asientos sin Aplicar, por lo que no se puede hacer el cierre, favor revisar Informe Asientos Del Mes Sin Aplicar"

    rst.Close

    DoCmd.Close acForm, "Proceso de Cierre"

    Exit Sub