VB, codigo, solo reconoce al primer registro

Hola,
Hola, PORFAVOR AYUDENME , ESTA LINEA DE CODIGO SOLO RECONOCE AL PRIMER REGISTRO DE MI TABLA ZONAS, LO QUE QUIERO HACER ES QUE RECORRA TODA LA TABLA EN ACCESS PARA ASI RECONOCER TODOS LOS REGISTROS QUE CONTIENE EL CAMPO ZONA... QUE ES EN LO QUE ESTOY FALLANDO... POR FAVOR AYUDENME...

Private Sub Command1_Click()

adozona.Recordset.MoveFirst
If adozona.Recordset.EOF = True Then

Adousuario.Recordset.Find "zona=" & Trim(txtzona.Text) & "'"

ElseIf txtzona.Text = adozona.Recordset("zona") Then

MsgBox "ya esta Registrado"
txtzona.Text = ""
cmdguardar.Enabled = False

Else

MsgBox "no esta registrado"

End If

End Sub


https://es.ccm.net/forum/programacion-3/new