[bo][un]不说也罢[/un] 在 2008-11-12 12:33 的发言：[/bo]

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

[bo][un]hbutwzc[/un] 在 2008-11-12 12:52 的发言：[/bo]

strSQl = "select * from 用户信息表 where 用户名='" & Trim$(Text1.Text) & "' and 用户密码='" & Trim$(Text2.Text) & "' "
  Set mrc = ExecuteSQL(txtSQL, MsgText)
    请问ExecuteSQL带返回值不？
if   mr ...

[bo][un]hbutwzc[/un] 在 2008-11-12 13:43 的发言：[/bo]

Public mrc As ADODB.Recordset
是不是哪些变量没有声明啊？

[bo][un]不说也罢[/un] 在 2008-11-12 13:55 的发言：[/bo]


把这一句 Dim mrc As ADODB.Recordset 改为 Dim mrc As New ADODB.Recordset
'Set mrc = ExecuteSQL(txtSQL, MsgText)这一句ExecuteSQL过程的两个变量你总是应当知道怎么传的吧?
Dim mrc As  New  ADODB.Record ...