Public Username As StringPrivate Sub cmdCancel_Click()OK = FalseMe.HideEnd SubPrivate Sub cmdOK_Click()'用來存放SQL語句Dim TxtSQL As String'用來存放記錄集對象Dim mrc As ADODB.Recordset'用來存放返回信息Dim MsgText As StringUsername = ""'判斷輸入用戶名是否為空If Trim(txtUserName.Text = "") ThenMsgBox "請輸入用戶名！", vbOKOnly + vbExclamation, "警告"txtUserName.SetFocusElse'查詢指定用戶名的記錄TxtSQL = "select * from user_Info where Username ='" & txtUserName.Text & "'"'執行查詢語句Set mrc = ExecuteSQL(TxtSQL, MsgText)If mrc.EOF = True ThenMsgBox "該用戶不存在！", vbOKOnly + vbExclamation, "警告"txtUserName.SetFocusElse'判斷輸入的密碼是否正確If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) ThenOK = Truemrc.CloseMe.HideUsername = Trim(txtUserName.Text)ElseMsgBox "密碼輸入錯誤！", vbOKOnly + vbExclamation, "警告"txtPassword.SetFocustxtPassword.Text = ""End IfEnd IfEnd IfEnd Sub這里面不斷拋出錯誤，實時錯誤 91，對象變量或with塊變量未設置，調試出錯的部位為If mrc.EOF = True Then，請問是怎么回事，該怎么解決？在線等。具有該怎么操作呢，我剛接觸VB不久，對它沒有太多的認識。調試ExecuteSQL返回的是mrc.EOF = <對象變量或with塊變量未設置>