请问大虾我这一段错在哪里？

Question

Private Sub Command1_Click()
'定义ado变量
Dim adocon As Connection
Dim rsado As Recordset
'打开数据库
Set adocon = New Connection
adocon.CursorLocation = adUseClient
adocon.Open "Provider=Microsoft.jet.OLeDB.4.0;Data Source=" & App.Path & "\dbmy.mdb;"
'搜索数据库
Dim rsado As New adodb.Recordset
rsado.Open "select * from db1 where id=1", adocon
Text1.Text = rsado(0)
Text2.Text = rsado(1)
Text3.Text = rsado(2)
End Sub
=========================================================================
问题一：
运行的时候一开始就报错：用户定义类型未定义。
高亮显示：“Private Sub Command1_Click()”，“adocon As Connection”。
=========================================================================
问题二：
搜索数据库那一段rsado(0)rsado(1)rsado(2)可以这样用吗？Text1.Text = rsado(0)能够显示时数据库中的内容吗？
=========================================================================
各位大虾小弟初学，望不吝赐教，感激不尽~~~~~~~~~~~

Answer 1

1.引用了ado類沒有？
2.Text1.Text = rsado(0)
Text2.Text = rsado(1)
Text3.Text = rsado(2)
不知道，你可以自己試一下。
可以這樣引用:text1.text = rsado!字段名 或 text1.text=rstado.fields("字段名")

Answer 2

谢谢，第一个问题可不可以详细一点？
应该是哪一个？
microsoft activex data object 2.0 library
microsoft activex data object 2.1 library
microsoft activex data object 2.5 library
microsoft activex data object 2.6 library
microsoft activex data object 2.7 library
microsoft activex data object recordset 2.7 library
microsoft activex data object (multi-dimensional)2.7 library
第一个问题解决不了没办法试验第二个问题，呵呵。
谢谢！

Answer 3

microsoft activex data object 2.7 library

Answer 4

我帮你回答下第二个问题
那样写是可以的不过你最好对其进行一下处理
比如
rsado(0)如果是string类型
那么应该这样写
text1.text=trim(rsado(0))如果你不这样写的话如果你还想对其进行查询就会出错
再有就是尽量将数据显示的可视性强一些
比如是显示币种信息你可以这样处理
text1.text =format (rsado(0),"0.00元")这样会好一些
试试吧:)