已解决,谢谢

[[it] 本帖最后由 huangchen 于 2008-11-13 14:31 编辑 [/it]]

怎么没有人愿意帮我啊，

兄弟们，帮帮忙啊，急！！！

帮帮忙啊

你是什么不行？是找不到判断条件？还是找不到窗口

窗口我能找到，但是我不知道下面的条件语句怎么写，麻烦给我补充一下啊，谢谢了

[[it] 本帖最后由 huangchen 于 2008-11-11 22:12 编辑 [/it]]

怎么没有连接数据库的语句啊??

添加判断验证成功一个boolean型
当=true时 你要进入的窗体.show 就可以

'接下来怎么写啊:
'或许是这样续写,不知道你是想怎么样
if not mrc.eof then'如果用户名密码正确
  'msgbox "登录成功"
  form1.show
  unload me
else
  msgbox "用户名密码不正确......"
 
end if

strSQl = "select * from 用户信息表 where 用户名='" & Trim$(Text1.Text) & "' and 用户密码='" & Trim$(Text2.Text) & "' "
  Set mrc = ExecuteSQL(txtSQL, MsgText)
    请问ExecuteSQL带返回值不？
if   mrc.eof  then
  msgbox"没有该用户信息！"
  exit sub
 else
   form1.show
   unload me
end if