Visual Basic - Necesito ayuda con este error!

Buenas noches estoy trabajando en un programa de busqueda de datos a traves de un dato como la cédula de la persona conectando mi programa de Visual Basic 6.0 con Access 2010. Al momento de darle al boton buscar para encontrar a la persona correspondiente a la cédula ingresada me salta este error:

Error '91' en tiempo de ejecución :
Variable de tipo Object o la variable de bloque With no está establecida

Este es el codigo del botón:

Dim mensaje As String
If Text_Buscar = "" Then
mensaje = MsgBox("Rellene la Casilla", vbCritical, "Rellenar Casilla")
ElseIf Combo1.Text = "" Then
mensaje = MsgBox("Seleccione una opción del combo", vbCritical, "Seleccionar Opción")
Else


Adodc1.Recordset.Find "Cédula = '" & Text_Buscar.Text & "'", , , 1

If Adodc1.Recordset.BOF = False And Adodc1.Recordset.EOF = False Then

Reporte.Show

Reporte.Text_Nombres.Text = Adodc1.Recordset.Fields("Nombre")
Reporte.Text_Apellidos.Text = Adodc1.Recordset.Fields("Apellido")
Reporte.Text_Cedula.Text = Adodc1.Recordset.Fields("Cedula")
Reporte.Text_Rif.Text = Adodc1.Recordset.Fields("Rif")
Reporte.Text_Nacimiento.Text = Adodc2.Recordset.Fields("Fecha de Nacimiento")
Reporte.Text_Cargo.Text = Adodc2.Recordset.Fields("Cargo")
Reporte.Text_Correo.Text = Adodc2.Recordset.Fields("Correo electrónico")
Text_Buscar = ""
Text_Buscar.SetFocus
Else

mensaje = MsgBox("No se ha podido localizar el registro", vbCritical, "Localización Fallida")

Adodc1.Recordset.MoveFirst
Text_Buscar = ""
Text_Buscar.SetFocus
End If

End If

¿En que sentencia da el error?

Adodc1.Recordset.Find "Cédula = '" & Text_Buscar.Text & "'", , , 1

En esa línea es donde me arroja el error

No es posible saber que esta causando el error viendo el código.

Se me ocurre una acciones posible.


Si sale la palabra ALARMA con el Text_Buscar y el Combo1.Text vacíos es que la estructura del los IF esta mal.

Saludos.
\\//_

Adodc1.Recordset.Find "Cédula = '" & Text_Buscar.Text & "'", , , 1

En esa línea es donde me arroja el error

Hermano la variable recordaste no ha Sido inicializada. Entiende que es
Dim cnn as adodb.conection
Dim rst as adodb.recordset

Set cnn = new adodb.conection
Set rst = new adodb.recordset

Abrir conexión a database en cnn
Abrir conexión a tabla con rst

Luego buscar con rst.find

Este es el protocolo si te informan ese tipo de error significa
1- que el alcance de rst es limitado o sea que se declaró dentro de un procedimiento y no público o a nivel de módulo por ende no puede ser invocado desde otro procedimiento.
2- entre la inicializacion de la variable rst y la construcción del procedimiento de búsqueda se ejecuta una línea como está
Set rst = nothing que destruye la variable rst.

Buen día amigo, enseguida hago las correcciones, muchas gracias de verdad