Private Sub GridFormat()
With Grid
   Set .Recordset = rs
 
  If USER_NAME = "User A" Then
      .Columns(1).Caption = "Name"   ---> Daten von Name
      .Columns(2).Caption = "Datum"  ---> Daten von Datum
      .Columns(3).Caption = "Betrag" ---> Daten von Betrag
  End If
 
  If USER_NAME = "User B" Then
      .Columns(1).Caption = "Datum"  ---> Daten von Datum
      .Columns(2).Caption = "Betrag" ---> Daten von Betrag
      .Columns(3).Caption = "Name"   ---> Daten von Name
  End If
 
  If USER_NAME = "User C" Then
      .Columns(1).Caption = "Betrag" ---> Daten von Betrag
      .Columns(2).Caption = "Datum"  ---> Daten von Datum
      .Columns(3).Caption = "Name"   ---> Daten von Name
  End If
 
  .Refresh
End With
End Sub

Private rs As New ADODB.Recordset
 
Private Sub Form_Load()
Dim s As String
 
If USER_NAME = "User A" then
   s = "Select FeldName, FeldDatum, FeldBetrag From Tabelle"
End If
 
If USER_NAME = "User B" then
   s = "Select FeldDatum, FeldBetrag, FeldName From Tabelle"
End If
 
If USER_NAME = "User C" then
   s = "Select FeldBetrag, FeldDatum, FeldName From Tabelle"
End If
 
rs.Open s, Connection, AdOpenDynamic
 
Call GridFormat
End Sub