I use data control and data grid..

How I can clear the field when the record not found in database?

If Text1.Text = "" Then
MsgBox "Please input your name!", vbExclamation + vbOKOnly, "Peringatan"
Else
Data3.RecordSource = "Select Plot, Area, Owner1, Owner2 from blockC Where Owner1 = '" & StrConv(Text1.Text, vbProperCase) & "' or Owner2= '" & StrConv(Text1.Text, vbProperCase) & "'"

Data3.Refresh

If Data3.Recordset.EOF Then
MsgBox "Nama " & Text1.Text & " not found!.", vbInformation, "Peringatan"
Text1.Text = ""

Else
Data3.Recordset.MoveFirst
End If
End If
'End If
End Sub