Object Required on EOF

[wx5chr]

I am getting an "Object Required" error on the line marked below. Any ideas why?

Dim dbTemp As DAO.Database
Dim rsTemp As DAO.Recordset
Dim strSQL As String

Set dbTemp = CurrentDb

strSQL = "SELECT T_Dates.Rev_Pub_Date, T_Dates.Current FROM T_Dates " & _
"WHERE (((T_Dates.Proc_ID)= " & Me.Proc_ID & &quot " & _
"AND ((T_Dates.Current) = -1)) ORDER BY T_Dates.Rev_Pub_Date DESC;"

Set rsTemp = dbTemp.OpenRecordset(strSQL)

If rsTemp.RecordCount > 1 Then
rsTemp.MoveFirst
rsTemp.MoveNext
Do Until rs.Temp.EOF <---- Here's where the error shows
With rsTemp
.Edit
!CurrentCk = 0
.Update
End With
rsTemp.MoveNext
Loop
End If
rsTemp.Close

 

[wx5chr]

Disregard. RoyVidar caught my typo.