为什么我把程序拿到别的电脑上会出现这样的问题？

Question

Private Sub cmdOK_Click()Dim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringUserName = ""If Trim(txtUserName.Text = "") ThenMsgBox "用户名不能为空！", vbOKOnly + vbExclamation, "警告"txtUserName.SetFocusElsetxtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = True ThenMsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"txtUserName.SetFocusElseIf Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Thenok = Truemrc.CloseMe.HideUserName = Trim(txtUserName.Text)ElseMsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"txtPassword.SetFocustxtPassword.Text = ""End IfEnd IfEnd Ifmicount = micount + 1If micount = 3 ThenMe.HideEnd IfExit SubEnd Sub

Answer 1

检查一下你的ExecuteSQL
应该是你电脑上的数据库环境和另外那台电脑上的不一样, 所以造成ExecuteSQL返回了一个Nothing, 导致mrc 是Nothing, 然后就出错了

Answer 2

不知你的ExecuteSQL过程是什么样的。可以试试
Dim mrc As ADODB.Recordset
改成 Dim mrc As new ADODB.Recordset