Imports System.Data
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim objConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection _
           ("Provider=Microsoft.Jet.OLEDB.4.0; " & _
           "Data Source='e:\Ablage.mdb''")
        Dim objDataAdapter As OleDb.OleDbDataAdapter
        Dim objDataSet As DataSet
        Dim objDataView As DataView
 
        objDataView = Nothing
        objDataSet = New DataSet()
        objConnection.Open()
 
        objDataAdapter = New OleDb.OleDbDataAdapter _
           ("SELECT * FROM Archidaten", objConnection)
        objDataAdapter.Fill(objDataSet, "Archivdaten")
        DataGridView1.DataSource = objDataAdapter
    End Sub
End Class