If Text1.Text = "" Then
MsgBox "You must fill the text", vbCritical
End If
Adodc1.Recordset.Find "code='" & Text1.Text & "'", , , 1
Form3.Show
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveFirst
MsgBox "we did not found any info", vbInformation
End If