ADA - ayuda para grabar en visual

Private Sub grabar_Click()

    ' Asegúrate de tener una conexión establecida previamente a la base de datos de Access '

    ' Verifica y asigna valores a las variables utilizadas '

    Dim fecha As Date

    fecha = DateValue(txtFecha.Text) ' Ejemplo: obtener la fecha del control de texto llamado txtFecha '

    Dim guia As String

    guia = txtGuia.Text ' Ejemplo: obtener el valor del control de texto llamado txtGuia '

    Dim proveedor As String

    proveedor = txtProveedor.Text ' Ejemplo: obtener el valor del control de texto llamado txtProveedor '

    Dim cantidad As Integer

    cantidad = CInt(txtCantidad.Text) ' Ejemplo: obtener el valor del control de texto llamado txtCantidad '

    Dim entradas As Integer

    entradas = CInt(txtEntradas.Text) ' Ejemplo: obtener el valor del control de texto llamado txtEntradas '

    Dim salidas As Integer

    salidas = CInt(txtSalidas.Text) ' Ejemplo: obtener el valor del control de texto llamado txtSalidas '

    Dim saldo As Integer

    saldo = CInt(txtSaldo.Text) ' Ejemplo: obtener el valor del control de texto llamado txtSaldo '

    ' Abre la tabla o consulta en el objeto Recordset ingreso '

    ingreso.Recordset.Open

    ' Agrega un nuevo registro y asigna los valores a los campos correspondientes '

    ingreso.Recordset.AddNew

    ingreso.Recordset("fecha") = fecha

    ingreso.Recordset("Guía") = guia

    ingreso.Recordset("Proveedor") = proveedor

    ingreso.Recordset("Cantidad") = cantidad

    ingreso.Recordset("Entradas") = entradas

    ingreso.Recordset("Salidas") = salidas

    ingreso.Recordset("Saldo") = saldo

    ' Guarda los cambios en la base de datos '

    ingreso.Recordset.Update

    ' Cierra la tabla o consulta en el objeto Recordset ingreso '

    ingreso.Recordset.Close

End Sub