OdbcDataAdapter1.SelectCommand.CommandText = "SELECT Name FROM NAMEBASE WHERE (" & _
  "Name LIKE '" & Textbox1.Text & "%')"
OdbcDataAdapter1.Fill(DataSet1)

Dim ersteSuche as Boolean = True
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
OdbcDataAdapter1.SelectCommand.CommandText = "SELECT Name FROM NAMEBASE WHERE (" & _
  "Name LIKE '" & Textbox1.Text & "%')"
 
If ersteSuche = True then
OdbcDataAdapter1.Fill(DataSet1)
End if
 
If ersteSuche = False then
OdbcDataAdapter1.Update(DataSet1)
End if
 
ersteSuche = False 
 
End Sub