Error 3704

[BrianMantilla]

Buenas Tardes,

estoy haciendo un programa que debe encontrar un determinado dato en una base de datos pero al ejercutarlo e ingresar el dato que debe buscar y encontrar en la base de datos me sale lo siguiente:

error 3704 en tiempo de ejecucion
La operación no esta permitida si el objeto esta cerrado

El codigo es el siguiente

Private Sub Command3_Click()
DeCandidatos.rsCmCandidatos.Find "CedulaCandidato = '" & Text1.Text & "'"
Text5.Text = DeCandidatos.rsCmCandidatos.Fields("Partido")
Text2.Text = DeCandidatos.rsCmCandidatos.Fields("NombreCandidat o")
Text3.Text = DeCandidatos.rsCmCandidatos.Fields("CedulaCandidat o")
Text4.Text = DeCandidatos.rsCmCandidatos.Fields("Puestopartido" )
CmdGuardar.Visible = True
CmdEditar.Visible = True
End Sub

Podrian Ayudarme nose que mas hacer, porfavor

Gracias

[SalomonSab]

lo primero que deberias hacer es una consulta para que te busque los datos de acuerdo al criterio que necesitas, obviamente el error es precisamente porque no se ha abierto tu recordset algo asi deberia de ser:

Código:

If rsCmCandidatos.State = adStateOpen Then rsCmCandidatos.Close
              rsCmCandidatos.Open "SELECT * FROM TuTabla WHERE CedulaCandidato = '" & .Text1.Text & "' ", Cnn, adOpenStatic, adLockOptimistic
Text5.Text = DeCandidatos.rsCmCandidatos.Fields("Partido")
Text2.Text = DeCandidatos.rsCmCandidatos.Fields("NombreCandidat o")
Text3.Text = DeCandidatos.rsCmCandidatos.Fields("CedulaCandidat o")
Text4.Text = DeCandidatos.rsCmCandidatos.Fields("Puestopartido" )
CmdGuardar.Visible = True
CmdEditar.Visible = True

Espero te sirva