Boton Guardar - Visual Basic

Sirve para Limpiar un Formulario similar a este

Adodc1.Refresh

With Adodc1.Recordset

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

If .EOF Then

.AddNew

.Fields!codcientifico = Text1

.Fields!nomcientifico = Text2

.Update

MsgBox "datos guardado", vbInformation, "mensaje"

Text1 = ""

Text2 = ""

Adodc1.Refresh

Else

MsgBox "Codigo ya Existe", vbCritical, "mensaje"

Text1 = ""

End If

End With