Dim sCN As String = "Provider=Microsoft.JET.OLEDB.4.0;data source=" & dbPfad & _
  dbName
Dim sql As String = "SELECT Feldgeraete_DDC010.DDC," & _
"Feldgeraete_DDC010.Fabrikat, Feldgeraete_DDC010.Typ, Count(" & _
"Feldgeraete_DDC010.Fabrikat) AS Anzahl FROM(Feldgeraete_DDC010) GROUP BY" & _
"Feldgeraete_DDC010.DDC, Feldgeraete_DDC010.Fabrikat, Feldgeraete_DDC010.Typ"
            Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(sCN)
            Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, _
              cn)
            Dim cmd As OleDb.OleDbCommandBuilder = New _
            OleDb.OleDbCommandBuilder(da)
 
            'Datentabelle füllen
            da.Fill(dt)