如何让数据库文件只能在指定电脑上使用

Option Compare Database

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
    Dim strUserName As String, strComputerName As String        '¶¨Òå±äÁ¿,ÓÃÓÚ±£´æÓû§Ãû¼°µçÄÔÃû
    Dim lngUserNameSize As Long, lngComputerNameSize As Long    'ÓÃÓÚ»º³åÇøµÄ³¤¶È
    lngUserNameSize = 255                                       '»º³åÇøµÄ³¤¶ÈΪ 255
    lngComputerNameSize = 255                                   '»º³åÇøµÄ³¤¶ÈΪ 255
    strUserName = String$(lngUserNameSize, 32)                  '³õʼ»¯»º³åÇø
    strComputerName = String$(lngComputerNameSize, 32)          '³õʼ»¯»º³åÇø
   
    GetUserName strUserName, lngUserNameSize                'ʹÓÃAPIº¯Êý½«µ±Ç°µÇ¼Óû§Ãû´æÈë strUserName ÖÐ
    GetComputerName strComputerName, lngComputerNameSize    'ʹÓÃAPIº¯Êý½«µçÄÔÃû´æÈë strComputerName ÖÐ
Me.Text0 = strUserName
Me.Text2 = strComputerName
End Sub