lcSQL = "SELECT mkstech_arbzeit.interne_nr," & _ "mkstech_arbzeit.benutzer, " & _ "mkstech_arbzeit.status," & _ "mkstech_arbzeit.descr," & _ "mkstech_arbzeit.datum," & _ "mkstech_kunden.kurzbez" & _ " FROM mkstech_arbzeit INNER JOIN mkstech_kunden ON " & _ " mkstech_arbzeit.kundnr=mkstech_kunden.kundnr " & " GROUP BY 1 " & _ " ORDER BY 1 " Dim loConnection As OleDbConnection Dim loCommand As OleDbCommand loConnection = Me.mmks_getconnection() loCommand = New OleDbCommand(lcSQL, loConnection) loConnection.Open() Dim loDataReader As OleDbDataReader = loCommand.ExecuteReader()Last line return me error GROUP BY clause is missing or invalid