Error 91 en tiempo de ejecución

Buenas, tengo un un problema en el código de un formulario, ya que este me da error 91 en tiempo de ejecución, la variabledel tipo objet o variable del bloque with no esta establasida, este es el código
Adodc5.Recordset.MoveFirst
Do While Not Adodc5.Recordset.EOF
    If UCase(Trim(Adodc5.Recordset("cedula"))) = UCase(Trim(cedula)) Then
        EDAD = Year(Date) - Year(Adodc5.Recordset("fecha_nac"))
        If Month(Date) < Month(Adodc5.Recordset("fecha_nac")) Then
            Text1(19).Text = (EDAD - 1) & "," & (Month(Date) + 12 - Month(Adodc5.Recordset("fecha_nac")))
        ElseIf Month(Date) > Month(Adodc5.Recordset("fecha_nac")) Then
            Text1(19).Text = EDAD & "," & (Month(Date) - Month(Adodc5.Recordset("fecha_nac")))
        Else
            Text1(19).Text = EDAD
        End If
        Exit Do
    End If
    Adodc5.Recordset.MoveNext
Loop
For i = 0 To 15
    Text1(i).Locked = True
Next i
With Adodc5
    .Recordset.MoveFirst
    Do While Not .Recordset.EOF
        If UCase(Trim(.Recordset("cedula"))) = UCase(Trim(cedula)) Then
            Exit Do
        End If
        .Recordset.MoveNext
    Loop
End With
End Sub
Si me pudiera ayudar, le agradezco de antemano.