VB问题???

Question

我编写一个登录的小程序,点Command1(确定)按钮
Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strsql As String
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open Connstring
strsql = "select * from 1 where a='" & Text1.Text & "'"
rst.Open strsql, cnn, adOpenStatic, adLockReadOnly
If rst.EOF = True And rst.BOF = True Then
  MsgBox "用户名或密码错误！", 48 + vbOKOnly, "提示信息"
Else
  Set rst = Nothing
  Set cnn = Nothing
  MsgBox "登录成功！", 48 + vbOKOnly, "提示信息"
Exit Sub
运行时出现以下的错误:
编译错误:用户定义类型未定义
请问怎么解决???

Answer 1

引用一下
Microsoft ADO Data Control 6.0

Answer 2

要在菜单中的"工程"--"引用"中选择 Microsoft ActiveX Data Objects 2.X Library

Answer 3

或引用
Microsoft ActiveX Data controls 2.x

Answer 4

tztz520(午夜逛街) 正解也添加Ado的引用

Answer 5

"工程"--"引用"中选择 Microsoft ActiveX Data Objects 2.X Library
添加ado的引用

Answer 6

直接在工具箱添加ADO控件就行了！

Answer 7

都说了，我说什么？？？
我也说！
引用ADO~~~