Function Create_User() As String
 
 Dim ws As Workspaces
 Dim NewUser As User
 Dim Temp As Variant
 Dim User As String
 Dim UserPW As String
 Dim UserID As String
 
 
 User = Test_recordset
 UserPW = Test_recordset
 
  If GetValue(HKEY_CURRENT_USER, "Volatile Environment", "NWUSERID", Temp) Then
   UserID = Left(Temp, 8)
  End If
  'MsgBox UserID
 
  Set ws = DBEngine.Workspaces(0)
  Set NewUser = ws.CreateUser(User, UserID, UserPW)
  ws.Users.Append NewUser
 
    If Left(User, 1) = "l" Then
      NewUser.Groups.Append ws.CreateGroup("Lehrling")
    ElseIf Left(User, 1) = "e" Then
      NewUser.Groups.Append ws.CreateGroup("Entwicklung")
    ElseIf Left(User, 1) = "k" Then
      NewUser.Groups.Append ws.CreateGroup("Gast")
    Else
      MsgBox "Your User " & User & " isn't a possible User"
    End If
 
End Function