Run-time error '3001', this isn't Sparta

[Salient]

vb6 connecting via ADO to a DNS reference to a MS Access 2003 database

Private Sub cboCategory_Click()
    '
    With pobjADOtable
        .MoveFirst
        .Find ("CategoryName=" & cboCategory.Text)
        If .EOF Then
            MsgText = "Error on Database Table" & vbCrLf _
                & "Trying Screaming for help
            MsgBox MsgText, vbExclamation, MsgHeader
            Exit Sub
        Else
            LoadText
        End If
    End With
    '
End Sub

Am getting the error on the .find clause

Arguements are of the wrong type, are piut of acceptance range, or are in conflict with one another

Anyone know what MS are trying to tell me there

 

[RuralGuy]

Try this code:

Private Sub cboCategory_Click()
    '
    With pobjADOtable
        .MoveFirst
[COLOR="SeaGreen"]'        .Find ("CategoryName=" & cboCategory.Text)[/COLOR]
        [COLOR="Red"].Find ("CategoryName='" & cboCategory.Text & "'")[/COLOR]
        If .EOF Then
            MsgText = "Error on Database Table" & vbCrLf _
                & "Trying Screaming for help[B][COLOR="Red"]"[/COLOR][/B]
            MsgBox MsgText, vbExclamation, MsgHeader
            Exit Sub
        Else
            LoadText
        End If
    End With
    '
End Sub

 

[Salient]

Thanks RG, it's now working like a brought one

Actually haven't touched vb for five or so years, and am well out of touch with it at the moment. Might help if I wasn't currently coding in three separate languages

 

[RuralGuy]

Glad I could help.