'--Laden von Datenbankinformationnen--!!
Private Sub cmdDBLoad1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdDBLoad1.Click
   Try
      DataGridView1.DataSource = Nothing
 
      With DataGridView1
         .Columns.Clear()
         .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
         .ColumnHeadersHeightSizeMode = _
           DataGridViewColumnHeadersHeightSizeMode.DisableResizing
         .ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Sunken
         .ColumnHeadersHeight = 22
         .ColumnHeadersDefaultCellStyle.Font = New Drawing.Font("Arial", 8)
         .Rows.Clear()
         .RowHeadersVisible = False
         .DefaultCellStyle.WrapMode = DataGridViewTriState.False
         .RowsDefaultCellStyle.BackColor = Drawing.Color.White
         .AlternatingRowsDefaultCellStyle.BackColor = Drawing.Color.Beige
         .RowsDefaultCellStyle.Font = New Drawing.Font("Arial", 8)
         .SelectionMode = DataGridViewSelectionMode.FullRowSelect
         .MultiSelect = False
         .AllowUserToAddRows = False
         .AllowUserToDeleteRows = False
         .AllowUserToResizeColumns = False
         .AllowUserToResizeRows = False
         .ReadOnly = True
      End With
 
      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
      DataGridView1.Refresh()
 
      For Each found As System.Data.DataRow In MyDataTable.Rows
         If found("AUF_POS") < 100 Then
            found.Delete()
         End If
      Next
 
      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
 
      Catch ex As System.Exception
         MsgBox(ex.Message)
            Return
   End Try
End Sub

VG

Dirk