对象变量或with未设置，这怎么改？

[yuzhifu1]

提示：实时报错“91”，对象变量或with未设置，这怎么改？谢谢！

Private Sub cmdOK_Click()
Dim txtSQL As String
Dim rstLogin As ADODB.Recordset
Dim flag As String
gUserName = ""
gUserKind = ""
If Trim(txtUserName.Text = "") Then
   MsgBox "用户名不能为空!", vbOKOnly + vbExclamation, "警告"
   txtUserName.SetFocus
Else
   txtSQL = "select * from tbUser where UserId = '" & txtUserName.Text & "'"
   flag = ExecuteSQL(txtSQL, rstLogin, False)
   If rstLogin.EOF = True Then
      MsgBox "没有这个用户，请重新输入!", vbOKOnly + vbExclamation, "警告"
      txtUserName.SetFocus
    Else
      If Trim(rstLogin.Fields(1)) = Trim(txtPassword.Text) Then
           gUserName = Trim(txtUserName.Text)
           gUserKind = Trim(rstLogin.Fields(2))
           gLoginSucceeded = True
           rstLogin.Close
           Me.Hide
           frmMain.Show
       Else
           MsgBox "密码不正确，请重新输入!", vbOKOnly + vbExclamation, "警告"
           txtPassword.SetFocus
           txtPassword.Text = ""
       End If
    End If
End If
miCount = miCount + 1
If miCount = 3 Then
Me.Hide
Exit Sub
End If
End Sub

[standhong]

我怎么没有看到连接数据库的语句.难道你是在其它地方连的?

[standhong]

http://standhong.blog.163.com/edit/
这里面有.但是我的是VS2008+ACCESS 的DEMO.

[yanlongwuhui]

跟踪下，是否rstLogin为nothing
在flag = ExecuteSQL(txtSQL, rstLogin, False)语句后面应该先判断rstLogin是否为nothing

[wjq]

这是VB6吧……

跟踪到报错的语句，看是不是有变量或者对象没有赋值

[古今多少事]

感觉你缺少遍历记录集的语句,如：
For i = 0 To rstLogin.Count - 1
n(i) = Trim(rstLogin.Fields(2))
rstLogin.MoveNext
Next

上面循环中的代码只是个例子。

[贫下码农]

从代码表面上看，应该是这几句中的某一句出错吧：

If rstLogin.EOF = True Then

If Trim(rstLogin.Fields(1)) = Trim(txtPassword.Text) Then

gUserKind = Trim(rstLogin.Fields(2))

rstLogin.Close

实时报错“91”，对象变量或with未设置，一般是这个 rstLogin 数所集没连接数据或值是 Nothing，当读取调用一个 Nothing 的对象时就会提示这个错误，避免现这种错误最好加上 Try 块处理错误问题及用：
If Not IsNothing(rstLogin) Then


End If
语句防止错误发生。

另外，你还是把这个连接数据库表的函数 ExecuteSQL(txtSQL, rstLogin, False) 的代码码贴出来看看吧，也有可能是这里面的问题！

[icon_wind]

jf