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 aNewDataTable As New DataTable
				objDataView = Nothing
	   			objDataSet = New DataSet()
	   			objConnection.Open()
	   			objDataAdapter = New OleDb.OleDbDataAdapter ("SELECT * FROM" & _
  "Spielername", objConnection)
	   			objDataAdapter.Fill(objDataSet, "Protokoll_Heute")
				dv1 = New DataView(objDataSet.Tables("Spielername"))
				aNewDataTable = New DataTable ("Spielername")
				TextBox1.DataBindings.Clear
				TextBox2.DataBindings.Clear
				TextBox1.DataBindings.Add("Text", aNewDataTable, "Staerke")
        		TextBox2.DataBindings.Add("Text", aNewDataTable, "Spieler")

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", 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