Question

VB：实时错误424，要求对象。求解决方法

Private Sub Command1_Click()
Select Case Index

Case 0
rs.Open "select * from dbo.user where id='" & Text1.Text & "' and pwd='" & Text2.Text & "'", cn, 3, 1
If rs.RecordCount > 0 Then
MsgBox "登陆成功", 64, "系统提示"
Else
MsgBox "登陆失败", 48, "系统提示"
End If
rs.Close
Case 1
End

End Select

End Sub

Answer 1

你这有Select Case Index ，我猜，应该是用了控件数组吧
你将代码剪切，将该过程删除后，重新双击command1，添加代码，你会发现，过程有点不一样，里面有个 index参数
再将前面剪切的代码粘贴进去

Answer 2

需要引用adodb并定义连接对象cnn和记录集对象rs

Answer 3

把完整的程序发过来看下，比较容易解决。没有什么机密的话可以Q150155942

Answer 4

你看下 你有没有 引入"Microsoft ActiveX Data Objects 2.5 Library" （有多个版本，其中一个），这样的库