Private Sub ListboxArchiv ()
         Dim objConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection _
           ("Provider=Microsoft.Jet.OLEDB.4.0; " & "Data" & _
           "Source=C:\datenbank.mdb")
         Dim objDataAdapter As OleDb.OleDbDataAdapter
         Dim objDataSet As DataSet
         Dim objDataView As DataView
         Dim dv1 As Dataview
         Dim Ts As DataGridTableStyle
            objDataView = Nothing
               objDataSet = New DataSet()
               objConnection.Open()
               objDataAdapter = New OleDb.OleDbDataAdapter ("SELECT * FROM" & _
                 "Spielername WHERE Spieler = txtspieler.text", _
                 objConnection)
               objDataAdapter.Fill(objDataSet, "Spielername")
            dv1 = New DataView(objDataSet.Tables("Spielername"))
 
            gridarchiv.DataSource = dv1
 
           Dim tst As New DataGridTableStyle
              tst.MappingName = "Spielername"
              'tst.RowHeadersVisible = False
              'tst.GridLineStyle = DataGridLineStyle.None
              'tst.SelectionBackColor = Color.White
 
           Dim col1 As New DataGridTextBoxColumn
              col1.MappingName = "Spieler"
              col1.HeaderText = "Spieler"
              col1.Alignment = HorizontalAlignment.Center
              col1.Width = 75
              col1.ReadOnly = True
              tst.GridColumnStyles.Add(col1)
 
           Dim col2 As New DataGridTextBoxColumn
              col2.MappingName = "Staerke"
              col2.HeaderText = "Staerke"
              col2.Alignment = HorizontalAlignment.Center
              col2.Width = 70
              col2.ReadOnly = True
              tst.GridColumnStyles.Add(col2)
 
              gridarchiv.TableStyles.Clear()
              gridarchiv.TableStyles.Add(tst)
      End Sub