Find in a Recordset????

[GreAppMat]

Dim intPartNumber As String
Dim varCriteria As Variant
Dim strSQL As String

Dim db As DATABASE
Dim rs As Recordset

strSQL = "tblPartInfo"
Set db = CurrentDb()
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)


varCriteria = " PartNumber = " & PartNumber
MsgBox (PartNumber)

rs.FindFirst "PartNumber = " & PartNumber

Do While rs.NoMatch = True
rs.Edit
rs!PartNumber = PartNumber
rs.AddNew
Loop
DoCmd.Close
DoCmd.OpenForm "frmNewShortage"

rs.Close

I keep getting a type mismatch Run time error 13. I have checked to see that Partnumber is a string and text(table) variable. I am clueless. The syntax seems right. I need help.

 

[KJD]

The problem is on the line:
varCriteria = " PartNumber = " & PartNumber

If PartNumber was a number this would be correct, but since it is a string the correct syntax is:

varCriteria = " PartNumber = '" & PartNumber & "'"

You must enclose the string in quotes.