假 定 你 把 用 戶 名 和 密 碼 保 存 在 數 據 庫 中 的 UserInfo表 中 ， 使 用 ： 
    Dim rd As Recordset 
    Set rd = Data1.Database.OpenRecordSet(" SELECT * FROM UserInfo") 
    rd.FindFirst "User = '" + sUser + "'" 
    If rd.NoMatch Then 
     MsgBox "沒 有 這 個 用 戶 ！ " 
    ElseIf rd("Password") = sPassword Then 
     MsgBox "歡 迎 ！ " 
    Else 
     MsgBox "密 碼 錯 誤 ！ " 
    End If 
<END>