Dim Users(10) as String 
Dim Use As Recordset
Set Use = Zugriff.rsUser    ' aus Dataenvironment!
 
Use.Open "SELECT `User`.* FROM `User`"    ' kann sich zur Laufzeit ändern
For F = 1 To Use.RecordCount
Users(F) = Use!User & "," & Use!Name
Use.MoveNext
Next F
Users(0) = Trim$(Str$(Use.RecordCount))
Use.Close