Visual Basic - PROGRAMACION EN VISUAL BASIC

POR FAVOR AYDENME TENGO ESTE CODIGO, Y E GENERA UN ERROR AL EJECUTAR... MI ENLACE ES CON ACCESS 2007...ERROR "424" ERROR DE EJECUCION SE REQUIERE UN OBJETO... SOLO QUIERO COMPARA QUE NO EXISTA DATOS DUPLICADOS
Private Sub cmdguardar_Click()

adozona.Refresh
With adozona.Recordset
adozona.Recordset.MoveFirst
Adousuario.Recordset.Find "codzona='" & Trim(txtcodzona.Text) & "'"
Adousuario.Recordset.Find "zona='" & Trim(txtzona.Text) & "'"

If adozona.Recordset.EOF = False Then

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

'adozona.Refresh

adozona.Recordset.AddNew

adozona.Recordset("codzona") = Trim(txtcodzona.Text)
adozona.Recordset("zona") = Trim(txtzona.Text)

adozona.Recordset.Update

MsgBox "Se Registró la Zona", vbOKOnly + vbExclamation, "Mensaje"

Call limpiar

cmdnuevo.Enabled = True
Call cargacodigo
cmdguardar.Enabled = False
End If
End With
End Sub

Y en que linea te marca el error?
Puede ser que un objeto lo hayas escrito mal o que no este instanciado.
Fijate si adozona esta bien, fijate los txtzona si existen, etc

saludos

EL ERROR MARCA EN ESTA LINEA DE CODIGO ESTA BIEN LA CONEXION A MI BASE DE DATOS EN ACCESS Y ESTAN BIEN NOMBRADAS LAS CAJAS DE TEXTO, NO SE LO QUE ESTA PASANDO

Adousuario.Recordset.Find "codzona='" & Trim(txtcodzona.Text) & "'"
Adousuario.Recordset.Find "zona='" & Trim(txtzona.Text) & "'"
EL MENSAJE DE ERRRO EXTACTO E S EL SGTE.

ERROR "424" EN TIEMPO DE EJECUCION:

SE REQUIERE UN OBJETO

hola k tal, ayudame por favor con esta linea de codigo.
no se si algo esta mal pero no reconoce nada trabajo con access 2007, quizas no esta bien la linea de codigo.. lo que quiero es consultar con mi base de datos si es que ya existe el dato que estoy registrando solo en el caso de la zona...
Private Sub Command1_Click()
adozona.Refresh
adozona.Recordset.MoveFirst

Do While adozona.Recordset.EOF = True

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

If adozona.Recordset.EOF = True Then

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

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

Else
MsgBox "no esta registrado"

End If

Loop
End Sub