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