'Realiza un select en una tabla
Public Function Cheques_Pendientes (Fecha) As Long
    Dim Db As Database 'Variable para las Bases de Datos
    Dim SQLTmp As String
    Dim MySnap As Recordset
    Dim BD as String
    BD  = "c:"
    On Error GoTo comunicarerror
    'Se ingresa la sentencia SQL en la variable
    SQLTmp = " select sum(valor) as TotalChequesPendientes " & _
                "from cheques " & _
                "Where estado = 'PENDIENTE' " & _
                "And fechavencimiento < datevalue('" & Fecha - 1 & "')"
               
    Set Db = OpenDatabase(BD)
    Set MySnap = Db.OpenRecordset(SQLTmp, dbOpenSnapshot)
    If Not MySnap.BOF And Not MySnap.EOF Then
        Cheques_Pendientes = MySnap!TotalChequesPendientes
    End If
   
    Exit Function
comunicarerror:
    msgbox "Ocurrio un error inesperado." , vbInformation, "Error"
End Function

---

'Permite un insert en una tabla
Public Function grabar(STRnombre, INTdia, INTmes, INTmonto) As Boolean
Dim base1 As Database
Dim Db As Database 'Variable para las Bases de Datos
Dim SQLTmp As String
Dim MySnap As Recordset
Dim Fecha As String
Fecha = INTdia & "-" & INTmes + 1 & "-" & Year(Now)
On Error GoTo comunicarerror
'Se ingresa la sentencia SQL en la variable
SQLTmp = "insert into cuenta (acreedorpv,diavencimientopv,mespagopv,montopv,fechapv) " & _
         "values ('" & UCase(STRnombre) & "'," & _
                        INTdia & "," & _
                        INTmes & "," & _
                        INTmonto & ",'" & _
                        Fecha & "')"
Set Db = OpenDatabase(BD)
Db.Execute SQLTmp, dbOpenSnapshot
grabar = True
comunicarerror:
    msgbox "Ocurrio un error inesperado." , vbInformation, "Error"
End Function