Problem with db.OpenRecodset(StrTblDate)

[brian williams]

Hello there. I could use some help on a VBA issue I am encountering. I have adopted a system that needs to be modified, but I can figure out why this keeps breaking on this one spot and I can't figure out where to go. Everything I try to enter information in from a form, I error out on the same section Set rs1 = db.OpenRecordse t(strtblDate). I could use a direction to find the answer.
Thanks!

Private Sub txtAccept_Exit(Cancel As Integer)
    On Error GoTo Err_txtAccept_Exit
    Dim db As Database
    Dim rs1 As Recordset
    Dim rs2 As Recordset

    If (Me!txtAccept = "T") Then
        Set db = DBEngine(0)(0)
       [B] Set rs1 = db.OpenRecordset(strtblDate)[/B]
        Set rs2 = db.OpenRecordset("qselEmployeeAdd")

        rs1.AddNew
        rs1("NAME") = Me!txtName
        rs1("EID") = Me!txtEnterEmployeeNumber
        rs1("DEPT") = Me!txtDept
        rs1("RACE") = rs2("RACE")
        rs1("SEX") = rs2("SEX")
        rs1("HIRE") = rs2("HIRE")
        If (Me!txtEnterExpLevel = "D") Then
            rs1("EXP") = "D"
            rs1("EXPTIME") = 10
        ElseIf (Me!txtEnterExpLevel = "I") Then
            rs1("EXP") = "I"
            rs1("EXPTIME") = 5
        ElseIf (Me!txtEnterExpLevel = "N") Then
            rs1("EXP") = "N"
            rs1("EXPTIME") = 0
        Else
            MsgBox "Experience Level must be D, I or N", 64, "Job Posting System"
            Exit Sub
        End If
        rs1.Update

        rs1.Close
        rs2.Close
        db.Close
        Set rs1 = Nothing
        Set rs2 = Nothing
        Set db = Nothing
        Me!txtEnterEmployeeNumber = ""
        Me!txtName = ""
        Me!txtName.Visible = False
        Me!txtDept = ""
        Me!txtDept.Visible = False
        Me!txtEnterExpLevel = ""
        Me!txtEnterExpLevel.Visible = False
        Me!txtEnterEmployeeNumber.SetFocus
        Me!txtAccept = ""
        Me!txtAccept.Visible = False
        Me!cmdOK.Visible = True
    Else
        Me!txtEnterEmployeeNumber = ""
        Me!txtName = ""
        Me!txtName.Visible = False
        Me!txtDept = ""
        Me!txtDept.Visible = False
        Me!txtEnterExpLevel = ""
        Me!txtEnterExpLevel.Visible = False
        cmdClose.SetFocus
        Me!txtAccept = ""
        Me!txtAccept.Visible = False
    End If

Exit_txtAccept_Exit:
    Exit Sub

Err_txtAccept_Exit:
    MsgBox Error$
    Resume Exit_txtAccept_Exit
End Sub

[hype261]

Brian,

Is strtblDate is supposed to be a variable???? If so where is it declared.

Is is supposed to be a string??? In that case enclose it in quotes.