Visual Basic - ayuda con boton de modificar

Adodc1.Refresh

Adodc1.Recordset.Filter = ("ced_empleado ='" & Text1 & "'")

If Text5.Text = "" Then

Frame1.Visible = True

    MsgBox "Por favor ingrese el numero de cuenta bancaria", vbInformation, "CAMPO EN BLANCO"

If Len(Trim(Text5.Text)) <> 20 Then

MsgBox "Por favor ingrese la cuenta de banco completa", vbInformation, "CAMPO EN BLANCO"

MsgBox "La dirección de correo : " & Text6 & vbNewLine & _

           Format(Validar_Email(Text6), "yes/no") & " ... es válida ", vbInformation

If Not Validar_Email(Text6.Text) Then

MsgBox "La dirección de correo electronico es invalida"

If Not Adodc1.Recordset.EOF Then

          Adodc1.Recordset.Fields!ced_empleado = Text1

          Adodc1.Recordset.Fields!nom_empleado = Text2

          Adodc1.Recordset.Fields!ape_empleado = Text3

          Adodc1.Recordset.Fields!fi_empleado = Text4

          Adodc1.Recordset.Fields!email_empleado = Text6

          Adodc1.Recordset.Fields!dir_empleado = Text7

          Adodc1.Recordset.Fields!fn_empleado = Text8

          Adodc1.Recordset.Fields!sx_empleado = Combo1

          Adodc1.Recordset.Fields!tipo_empleado = Combo2

          Adodc1.Recordset.Fields!cb_empleado = Text5

          Adodc1.Recordset.Fields!eb_empleado = Combo4

           Adodc1.Recordset.Update

    MsgBox "Datos del Usuario MODIFICADOS con Éxito", vbInformation, "CAMBIOS GUARDADOS"

     End If

    Adodc1.Refresh

    Command5.Value = True

End If

End If

End Sub