Dim strSql As String
        'Funktioniert
        'strSql = "SELECT * FROM filmarten, gesamttitel"
        'Funktioniert
        'strSql = "SELECT ([Filmarten].Originalfilmart) FROM filmarten," & _
          "gesamttitel"
        'Funktioniert
        'strSql = "SELECT ([Filmarten].Originalfilmart) FROM ([Filmarten])"
 
        'Syntaxfehler (Komma) in Abfrageausdruck '((Filmarten!Originalfilmart), _
          (Gesamttitel!Originalgesamttitel))'.
        strSql = "SELECT ((Filmarten!Originalfilmart), (" & _
        "Gesamttitel!Originalgesamttitel)) FROM (Filmarten, Gesamttitel)"
 
        Dim ConnectionStringToDatabase As String = _
          "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Martin\Eigene" & _
          "Dateien\Visual Studio" & _
          "2008\Projects\Filmkatalog\Filmkatalog\bin\Debug\Filmkatalog.mdb;Per" & _
          "ist Security Info=False;"
 
        Dim da As New OleDbDataAdapter(strSql, ConnectionStringToDatabase)
        Dim dt As New DataTable
        da.Fill(dt)
        KatalogDataGridView1.DataSource = dt