Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim da As New OleDb.OleDbDataAdapter("Select * From stammdat", _
         "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
         "Source=|DataDirectory|\faktur\faktur.mdb")
        Dim dt As New DataTable("stammdat")
        da.Fill(dt)
        dgv.DataSource = dt
    End Sub
End Class