求教~~~一个用户登陆的算法~~~在线等（急）

Question

请问：
   首先检测ID是否存在
   1.若存在则继续检测-----密码是否正确
                          1.正确则打开另一窗体
                          2.错误则弹出MSGBOX
   2.若用户名不存在-------弹出MSGBOX
条件 1.是在一个名为MASTER的表中查找
     字段：1 ID
           2 PWD
     2.VB+ACCESS 用JET4.0连接，纯代码，不用ADO或者DATA控件

Answer 1

我是在网吧上网
可没有VB
但这好像不难啊
用ADODB啊,
dim con as adodb.connection
dim rec as adodb.recordset
哎呀
好多单词想不起来了,晕
你试一下
查一下帮助,不难得

Answer 2

引用ado
dim cn as new ado.connenction
dim rs as new ado.recordset
cn.connectionstring ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=*.mdb;Persist Security Info=False"
rs.open "select password from master where id='" & ID,cn,4,4
if rs.recordcount=0 then 
     msgbox "没有该用户"
     exit sub
elseif rs.field(0).value<>txtpwd.text then
    msgbox "密码错误"
exit sub
end if
form.show