ID         Autowert, Primärschlüssel
Icon       Text
Interpret  Text
Titel      Text
...

Dim conn As OleDbConnection
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim connstring As String
 
        connstring = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\Dokumente und Einstellungen\Christian\Eigene" & _
            "Dateien\Visual Studio" & _
            "2005\Projects\Datenbankzugriff\Datenbankzugriff\Daten.mdb"
 
        conn = New OleDbConnection(connstring)
    End Sub
 
Sub ShowDataInDatagrid()
        Try
            conn.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message, _
                "Beim Öffnen der Datenbank ist ein Fehler aufgetreten.")
        End Try
 
        ' SelectCommand erstellen welches die "Select-Abfrage" gegen die
        ' Datenbank beinhaltet
        Dim myOleDbSelectCommand As New OleDb.OleDbCommand
        myOleDbSelectCommand.Connection = conn
        myOleDbSelectCommand.CommandText = "select ID , Icon, Titelname," & _
          "Interpret From Daten"
 
        ' DataAdapter mit dem SelectCommand verbinden
        Dim myOleDbDataAdapter As New OleDb.OleDbDataAdapter
        myOleDbDataAdapter.SelectCommand = myOleDbSelectCommand
 
        ' und mit dem DataAdapter das DataSet füllen
        Dim myDataSet As New DataSet
 
        'myDataSet.Tables
        myOleDbDataAdapter.Fill(myDataSet, "Daten")
 
        ' Daten an das DataGridView binden
        With Me.DataGridView1
            .DataSource = myDataSet
            .DataMember = "Daten"
            .Columns("ID").Visible = False
        End With
 
        conn.Close()
    End Sub

...
Dim myDataSet As New DataSet
myDataSet.Tables.Add("Daten")
 
myDataSet.Tables("Daten").Columns.Add("Icon")
myDataSet.Tables("Daten").Columns("Icon").DataType = GetType(Bitmap)
 
myOleDbDataAdapter.Fill(myDataSet, "Daten")
 
' Daten an das DataGridView binden
...