This is driving be crazy. I have this exact statement in two different subs. The only difference is the query sending the data in. I have been over and over the quotes, double quotes, etc. and tried them all with no change in the errors. Can someone help?

rsSchedule.FindNext ("PlantNo = " & tmpPlant & " AND SHPDate = #" & tmpDate & "# AND TimeFrame = " & tmpTimeFrame & " AND SHP = " & tmpSHP)

This one works:
Dim rsSchedule As Recordset
'ScheduleID
'Plant
'SHPDate
'TimeFrame
'SHPTime
'SHP_Producer
'SHP
'QTY
'GeneticCode
'Base
Dim rsRUSSSched As Recordset
'Voucher
'SHP_Producer
'PlantID (SHP)
'Genetic
'Qty
'REC_Date
'RECTime
'REC_Producer

Dim db As Database
Set db = CurrentDb()
Set rsSchedule = db.OpenRecordset("DL_RUSS_Q_Schedule")
Set rsRUSSSched = db.OpenRecordset("DL_RUSS_Q_Upload")

rsRUSSSched.MoveFirst

If rsRUSSSched.EOF Or rsSchedule.EOF Then
Form_F_Variance.MessageBox.Visible = True
Form_F_Variance.MessageBox = "No records found."
LoadRUSS = 1
Else
Do While Not rsRUSSSched.EOF
tmpPlant = rsRUSSSched.Fields("Plant")
tmpDate = rsRUSSSched.Fields("REC_Date")
tmpTimeFrame = rsRUSSSched.Fields("TimeFrame")
tmpSHP = rsRUSSSched.Fields("PlantID")

rsSchedule.FindNext ("PlantNo = " & tmpPlant & " AND SHPDate = #" & tmpDate & "# AND TimeFrame = " & tmpTimeFrame & " AND SHP = " & tmpSHP)

This one does not work:

Dim rsSchedule As Recordset
'ScheduleID
'Plant
'SHPDate
'TimeFrame
'SHPTime
'SHP_Producer
'SHP
'QTY
'GeneticCode
'PO

Dim rsMaschSched As Recordset
'Beardstown
'SHP_Producer, Producer Name
'SHP, Producer No
'F5, Del Time
'SHPTime, Converted receiving time
'PO
'SHPDate
Dim tmpFind As String
Dim db As Database
Set db = CurrentDb()
Set rsSchedule = db.OpenRecordset("DL_Masch_Q_Schedule")
Set rsMaschSched = db.OpenRecordset("DL_Masch_Q_Upload")

rsMaschSched.MoveFirst

If rsMaschSched.EOF Or rsSchedule.EOF Then
Form_F_Variance.MessageBox.Visible = True
Form_F_Variance.MessageBox = "No records found."
LoadMasch = 1
Else
Do While Not rsMaschSched.EOF
tmpPlant = rsMaschSched.Fields("Plant")
tmpDate = rsMaschSched.Fields("SHPDate")
tmpSHP = rsMaschSched.Fields("SHP")
tmpTimeFrame = rsMaschSched.Fields("Timeframe")

rsSchedule.FindNext ("PlantNo = " & CInt(tmpPlant) & " AND SHPDate = #" & Format(tmpDate, "mm/dd/yyyy") & "# AND TimeFrame = " & tmpTimeFrame & " AND SHP = " & tmpSHP & "")