这个通用用户登录不知如何加入机器码栏

Private Sub 登录系统_Click()
If Nz([密码]) = Nz(DLookup("密码", "用户密码表", "用户=" & "'" & 用户名 & "'")) _
    And Me.用户名 <> ""  and 硬盘序列号="XXXXXXXXXXXXXXX" Then                           '验证用户和密码)
        UserID = Nz(DLookup("用户ID", "用户密码表", "用户=" & "'" & 用户名 & "'")) '新增加的语句
        Me.TimerInterval = 0                                '关闭定时器
        Me.Visible = False                                  '隐藏窗体
        DoCmd.Close acForm, "登录窗体", acSaveYes       '关闭前景
        DoCmd.OpenForm "切换面板"                           '进入价格检查系统
     
Else
        MsgBox "用户名或者密码错误！请重新输入！", , "请重新输入"
        Me.用户名.SetFocus                             '用户名文本框获得焦点
        Me.密码 = ""                                     '清空密码文本框
                                          '新增加的语句
End If

Exit_Cmd登录系统_Click:
    Exit Sub

Err_Cmd登录系统_Click:
    MsgBox Err.Description
    Resume Exit_Cmd登录系统_Click
   
End Sub