Function AngemeldeteAnwender() As String
Dim cnn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strListe As String
Set cnn = CurrentProject.Connection
Set rs = cnn.OpenSchema(adSchemaProviderSpecific, , _
„{947BB102-5D43-11D1-BDBF-00C04FB92675}“)
strListe = „“
While Not rs.EOF ‚Feldinhalte ausgeben
strListe = strListe & _
VBAStr(rs.Fields(1).Value) & _
“ (“ & _
VBAStr(rs.Fields(0).Value) & „);“
rs.MoveNext
Wend
AngemeldeteAnwender = Left$(strListe, Len(strListe) – 1)
End Function
Function VBAStr(aStr As String) As String
VBAStr = Left$(aStr, InStr(aStr, Chr$(0)) – 1)
End Function