Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
Dim SQL As String
 
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
 
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "C:\Deine.mdb"
 
SQL = "SELECT grpa.Name, Sum(grpa.Pkt) AS Punkte, Sum(grpa.[T+]) AS [T+], Sum(" & _
  "grpa.[T-]) AS [T-] " & _
"FROM grpa GROUP BY grpa.Name ORDER BY Sum(grpa.Pkt) DESC , Sum(grpa.[T+]) DESC"
 
RS.Open SQL, DB, adOpenDynamic, adLockOptimistic
 
Set DataGrid1.DataSource = RS