Dim oRs As Recordset
    Dim SQL_Befehl As String
 
    SQL_Befehl = "SELECT * FROM Users WHERE user_name = '" & _
      cmb_UserSelect.Text & "';"
    Set oRs = odb.OpenRecordset(SQL_Befehl)
    If oRs.RecordCount = 1 Then
        fld_UserName = oRs!user_name
        fld_UserPreName = oRs!user_prename
        fld_UserNickname = oRs!user_nickname
        fld_userpass = oRs!user_pass
        fld_UserId = oRs!user_countnr
        chk_LogViaNickName.Value = Abs(oRs!UserLockThroughUName)
        chk_LogViaWS_ID.Value = Abs(oRs!UserLockThroughWSID)
        opt_UserTimeWindow(oRs!Fields("UserhasTimeWindow").Value) = True