我想做个登陆界面，是这样写的
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim cmd As New
cnn.ConnectionString = ("provider=SQLOLEDB.1;Persist Security Info=False;Integrated Security=SSPI;CATALOG=车辆管理正式版;")
cnn.Open
Set rs1.ActiveConnection = cnn
rs1.Open ("use 车辆管理正式版 select * from zhanghu where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'")
If rs1.EOF = True Then
 MsgBox "用户名或密码错误!", vbInformation, "警告"
Text1.Text = ""
 Text2.Text = ""
 Else
 Unload Me
 MsgBox "登录成功"
Form2.Show
End If
rs1.Close
End Sub


每次到If rs1.EOF = True Then
那里就会出错。。。到底是怎么回事，请大家帮我看下，谢谢了

还是不行哦，改了没用，谢谢了~~~

你好，我的SQL server是设置的windows账户登录。
我试试换成sql账号密码登录看行不行

改了还是不行，
If cnn.State = adStateOpen Then
MsgBox "打开数据库"
我的这句都能执行，都能弹出"打开数据库"的窗口。。。菜鸟求大家帮忙。。。

Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
 Dim rs1 As New ADODB.Recordset
 Dim cmd As New
 cnn.ConnectionString = "provider=SQLOLEDB.1;Persist Security Info=False;Integrated Security=SSPI;CATALOG=曾杰的车辆管理正式版;"
cnn.Open
 Set rs1.ActiveConnection = cnn
 If cnn.State = adStateOpen Then
MsgBox "打开数据库"
End If
 rs1.Open ("use 曾杰的车辆管理正式版 select * from zhanghu where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'")
  If cnn.State = adStateOpen Then
MsgBox "打开数据库"
End If
 If rs1.EOF = True Then
 MsgBox "用户名或密码错误!", vbInformation, "警告"
Text1.Text = ""
 Text2.Text = ""
 Else
 Unload Me
 MsgBox "登录成功"
Form2.Show
 End If
 rs1.Close
 End Sub


我改成这样，两次“打开数据库”的弹出窗口都能看到，但还是提示对象关闭。。。