Botón Modificar - Visual Basic

Sirve para Limpiar un Formulario similar a este

If (Trim(Text1.Text) = Empty) Then

MsgBox ("Debe completar toda la información"), vbInformation

Else

Adodc1.Refresh

With Adodc1.Recordset

.Filter = ("codcientifico = '" & Text1 & "'")

If .EOF Then

MsgBox "No existe", vbExclamation

Else

.Fields! codcientifico = Text1

.Fields! nomcientifico = Text2

.Update

Adodc1.Refresh

MsgBox ("Campos editados"), vbInformation

Text1 = ""

Text2 = ""

End If

End With

Text1.SetFocus

End If