Dear Sir,

VB 6.0

Refers to the below coding. I want to find code in string data type, but there are run time error occur. why???

Private Sub Command1_Click()
Dim iFind As String

iFind = InputBox("Enter Customer Catergory Code to Find")
dtaCat1.Recordset.FindFirst ("CusCat = " & iFind)
If dtaCat1.Recordset.NoMatch Then
MsgBox "There is no such category code", vbExclamation
Else
Call GiveCData
End If
End Sub


Thanks


Xiang