Private Sub cmdDBLoad1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdDBLoad1.Click
 
Dim Filter As String
Filter = TB_BAUFTRAG.Text & "%"
 
Dim MyDataTable As System.Data.DataTable
Dim MySqlConnString As String = "Password= .......;"
Dim MySql As String = "SELECT AUF_STAMM.AUF_NR, AUF_STAMM.AUF_POS," & _
  "AUF_STAMM.AUF_POS_BEZ, _
AUF_STAMM.AUF_BEZEICHNUNG FROM AUF_STAMM WHERE AUF_NR LIKE '" & Filter & "'"
Dim MySqlConnection As New SqlConnection(MySqlConnString)
Dim MyAdapter As New SqlDataAdapter(MySql, MySqlConnection)
MyDataTable = New System.Data.DataTable()
MySqlConnection.Open()
MyAdapter.Fill(MyDataTable)
MySqlConnection.Close()
DataGridView1.DataSource = MyDataTable
 
For Each found As DataRow In MyDataTable.Select("AUF_POS < 100")
    found.Delete()
Next
 
End Sub

DataGridView1.Columns.Add("0", "Auftrags - Nr.") '= AUF_NR

mfg.

Dirk