(EDIT: Yeah, what Dave said! )
Maybe try this (untested):
Code:
Private Sub CustomerPayments_Click()
On Error GoTo Error_Proc
Dim curDatabase As Database
Dim rst1 As Recordset
Set curDatabase = CurrentDb
Set rst1 = curDatabase.OpenRecordset("SELECT Sum([Debit]) AS SumDebit, Sum([Credit]) AS SumCredit FROM [Account General Journal]")
If Not rst1.EOF Then
If rst1!SumDebit <> rst1!SumCredit Then
MsgBox "unequal"
ElseIf IsNull(rst1!SumDebit) Then
MsgBox "No records in [Account General Journal] to sum."
End If
End If
rst1.Close
curDatabase.Close
Exit_Proc:
Set rst1 = Nothing
Set curDatabase = Nothing
Exit Sub
Error_Proc:
MsgBox "There was an error"
Resume Exit_Proc
End Sub