Private Sub Grid
Dim rs As New ADODB.Recordset
Dim s As String
 
s = "Select Name, Datum, Betrag From Tabelle"
 
rs.Open s, Connection, AdOpenDynamic
 
With DataGrid
  Set .Recordset = rs
 
  .Columns(1).Caption = "Name"
  .Columns(2).Caption = "Datum"
  .Columns(3).Caption = "Betrag"
 
  .Refresh
End With
End Sub
 
SUPER-ERGEBNIS:
Name  |  Datum  |  Betrag

ERGEBNIS:
User A:   Name  |  Datum  |  Betrag
 
User B:   Datum  |  Betrag  |  Name
 
User C:   Betrag  |  Datum  |  Name