Private stDBPfad As String = Path.Combine(Application.StartupPath, _
              "Database.mdb")
            Private stCn As String = "provider=Microsoft.jet.OleDB.4.0;Data" & _
            "Source=" & stDBPfad
            Private objConnection As New OleDbConnection(stCn)
            Dim OleDbCmd As OleDbCommand
 
            Dim dv As New DataView
            Dim Da As New OleDbDataAdapter("Select Bild FROM Hersteller", stCn)
            Dim Ta As New DataTable("Hersteller")
 
objConnection.Open()
            Da.Fill(Ta)
            dv = New DataView(Ta)
            datagridview.DataSource = dv