VB技巧问答10000例 VB技巧问答10000例

				假 定 你 把 用 户 名 和 密 码 保 存 在 数 据 库 中 的 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