Dim Mycon As DbConnection = New SqlConnection
Mycon.ConnectionString = MySqlConnString
 
Dim Mycmd As DbCommand = New SqlCommand
Mycmd.CommandText = "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 & "'"
Mycmd.Connection = Mycon
 
Dim Myda As DbDataAdapter = New SqlDataAdapter
Myda.SelectCommand = Mycmd
 
Dim MyDataTable As New System.Data.DataTable()
 
Mycon.Open()
Myda.Fill(MyDataTable)
Mycon.Close()
 
Dim MyDataTable2 As System.Data.DataTable = MyDataTable.Clone()
MyDaTable2.Columns(1).DataType = Type.[GetType]("System.Int32")
 
For Each Mydr As System.Data.DataRow In MyDataTable.Rows
   MyDataTable2.ImportRow(Mydr)
Next
 
MyDataTable2.AcceptChanges()
Dim Mydv As DataView = MyDataTable2.DefaultView
Mydv.Sort = "AUF_POS"
 
DataGridView1.DataSource = Mydv
 
'--Anpassung / Spaltennamen + Spaltenbreiten-- 
With DataGridView1
   .Columns(0).HeaderText = "Projekt - Nr."
   .Columns(0).Width = 120
   .Columns(1).HeaderText = "Betriebsauftrags - Nr."
   .Columns(1).Width = 180
   .Columns(2).HeaderText = "LV Positions - Nr."
   .Columns(2).Width = 120
   .Columns(3).HeaderText = "Bezeichnung"
   .Columns(3).Width = 535
End With

VG

Dirk