[RESOLVED] Code works on buttonclick, but not automatically

[kfcSmitty]

Can't post the whole form...But here is what I do moving from record to record (works fine)

Private Sub cmdNext_Click()
     rsWorkerForm.MoveNext
     Form_Current
End Sub

And here is what I am doing when I click the combobox and attempt to move over a record

Private Sub ID_Click()
     newValue = ID.Text
     ID.Value = oldValue
     Do Until rsWorkerForm.Fields("ID") = newValue
          If newValue > oldValue Then
              Dunno = True
              rsWorkerForm.MoveNext
          ElseIf newValue < oldValue Then
              Dunno = True
              rsWorkerForm.MovePrevious
          End If
     Loop
     Dunno = False
     Form_Current
End Sub

The snippet directly above errors.