troublesome DAO problem

[chaostheory]

I simply don't understand why this isnt working and im not experienced enough to figure it out. I've googled at least 10 times and all examples of how to edit a rs show me exactly what i have. Here is the code.

Sub pullTickets()
Dim ticketNum As String
Dim greenQnty As Integer
Dim db As Database, rs As DAO.Recordset, r As Long
    Set db = OpenDatabase("Removed for security")
    ' open the database
    Set rs = db.OpenRecordset("Skid List", dbOpenDynaset)
    ' open a recordset
    ' all records in a table
    r = 1 ' the start row in the worksheet
   Do While Len(Range("A" & r).Formula) > 0
    ' repeat until first empty cell in column A
   ticketNum = Range("C1").Offset(r, 0)
   rs.MoveFirst
   MsgBox ("Green Ticket='" & ticketNum & "'")
  [COLOR=red] rs.FindFirst "Green Ticket='" & ticketNum & "'"  <---this line generates an 3077 Syntax Error (missing operator) in expression.[/COLOR]
   greenQnty = rs.fields("Green Qnt")
   If rs.NoMatch = False Then
      rs.Edit
      rs.fields("1st Fire Lot") = Range("C1").Offset(r, 4).Value
      rs.fields("1st Fire Date") = Range("C1").Offset(r, 5).Value
      rs.fields("1st Fire Cycle") = "ACDT-02"
      rs.fields("1st Fire Kiln") = "DT1"
      rs.fields("1st Fire eCode") = Range("C1").Offset(r, 6).Value
      rs.fields("1st Fire Ticket") = Range("C1").Offset(r, 3).Value
      rs.fields("1st Fire Qnt In") = greenQnty
      If Range("K1").Offset(r, 0) = "" Then
        rs.fields("1st Fire Qnt Out") = greenQnty
      Else
        rs.fields("1st Fire Qnt Out") = Range("K1").Offset(r, 0)
      End If
    Else
      MsgBox (ticketNum & " not found")
    End If
   rs.Update
        r = r + 1 ' next row
    Loop
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing

End Sub