Dim objConnection As New OleDbConnection(ConStr)
Dim objDataAdapter As OleDbDataAdapter
Dim objDataTable As DataTable
Try
Dim ConStr As String = "Provider= Microsoft.Jet.OLEDB.4.0; Jet OleDB: Database " & _
  ";Data Source=" &  Datenbank & ";"              
    objDataAdapter = New OleDbDataAdapter("SELECT * FROM Archivdaten", ConStr)
    objDataTable = New DataTable()
 
    Dim cmd As OleDbCommandBuilder = New OleDbCommandBuilder(objDataAdapter)
 
    cmd.QuotePrefix = "["
    cmd.QuoteSuffix = "]"
 
    objDataAdapter.Fill(objDataTable)
 
    Me.Archive.DataSource = objDataTable
 
    Me.DataGridView1.DataSource = Me.Archive
    GridAufbauAllgemein(DataGridView1)
Catch ex As Exception
End Try