需要Login的操作，专家请帮忙

Private Sub Form_Load()
Dim strFormName As String: strFormName = Me.Name
'-------------------------------------------------------锁定项目的判断
'Dim locksys As String
'locksys = DLookup("lock", "lock", "lock.username='" & Me.Name & "'")
'If locksys = True Then
'MsgBox "数据库正在后台维护，请稍后使用！", , "注意："
'End
'    DoCmd.Close acForm, strFormName, acSaveNo
'Else
    DoCmd.Close acForm, strFormName, acSaveNo
    OpenRDPForm strFormName
'End If
End Sub

lock

username	lock
Ac001	False
ac002	True
ac003	True
admin	False
ac004	True