Visual Basic - problema con acces (DATA)

hola,tengo el siguiente problema:
Function Limpiar()
txtNombreClave.Text = ""
txtNombre.Text = ""
txtTeléfono.Text = ""
txtCelular.Text = ""
End Function
Function Consultar()
If txtNombreClave.Text = "" Then
MsgBox ("No ha escrito Nada")
Limpiar
Exit Function
End If
Data1.Recordset.MoveFirst
While Not Data1.Recordset.EOF
If txtNombreClave.Text = Data1.Recordset("NombreClave") Then
txtNombreClave.Text = Data1.Recordset("NombreClave")
txtNombre.Text = Data1.Recordset("Nombre")
txtTeléfono.Text = Data1.Recordset("Teléfono")
txtCelular.Text = Data1.Recordset("Celular")

Exit Function
End If
Data1.Recordset.MoveNext
Wend
End Function

Private Sub Command1_Click()
Consultar
End Sub

y sucede lo suguiente cuando doy al boton sale error 3021(no hay registros actvos), cual seria el problem??????????????
gracias

El problema es que no tienes registros activos, porque eso te lo mandé yo y funciona muy bien, lo ha hecho por más de un año, y te había indicado en el correo que tienes que llenar la BD, y direccionar el Control Data lo cual debe ser tu problema, porque el Data buscará la BD referente a la ruta de mi computador, así que debes de actualizar su ruta .

Saludos.