Boton Buscar - Visual Basic

Sirve para Limpiar un Formulario similar a este

If Text1.Text = Empty Then

MsgBox "Debe buscar un Codigo", vbCritical

Text1.SetFocus

Else

 Adodc1.Refresh

 With Adodc1.Recordset

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

  If .EOF Then

   MsgBox "No se encuentra el registro!", vbExclamation

  Else

            Text1 = .Fields!codcientifico

            Text2 = .Fields!nomcientifico

  End If

 End With

 End If