Here is what I have for the code keep getting error on



Code:
'declare variables and assign address to object variables
    Dim strId As String, strPayment As String, curPayment As Currency
    Dim cnnTrip As adodb.Connection, rstPays As adodb.Recordset
    Set cnnTrip = Application.CurrentProject.Connection
    Set rstPays = New adodb.Recordset
    'open the recordset
    rstPays.Open
...