Dim objConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection ( _
  "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=C:\Spielerdatenbank.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 Spieler", _
  objConnection)
	   			objDataAdapter.Fill(objDataSet, "Spieler")
				dv1 = New DataView(objDataSet.Tables("Spieler"))
 
				gridarchiv.DataSource = dv1
 
	        Dim tst As New DataGridTableStyle
		        tst.MappingName = "Spieler"
		        tst.RowHeadersVisible = False
		        tst.GridLineStyle = DataGridLineStyle.None
		        tst.SelectionBackColor = Color.White
 
	        Dim col1 As New DataGridTextBoxColumn
		        col1.MappingName = "Spielername"
		        col1.HeaderText = "Spielername"
		        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 = 100
		        col2.ReadOnly = True
		        tst.GridColumnStyles.Add(col2)
 
	        Dim col3 As New DataGridTextBoxColumn
		        col3.MappingName = "Position"
		        col3.HeaderText = "Position"
		        col3.Alignment = HorizontalAlignment.Right
		        col3.Width = 60
		        col3.ReadOnly = True
		        tst.GridColumnStyles.Add(col3)
 
		        gridarchiv.TableStyles.Clear()
		        gridarchiv.TableStyles.Add(tst)