VB读取ACCESS数据库的问题~高手指导下！谢谢

jjww123

Dim TL1 As Double
'连接数据库
0 ]6 z0 S: ~  j4 k8 pSet adoCon = New Connection
# T: Y0 z* {+ G$ x4 P' zadoCon.CursorLocation = adUseClient
6 h# A; P: t5 H% X0 D& ?) z) }adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"

- X0 m  ?, ~2 o6 L3 r' ^* V+ h5 ASet adoRs = New Recordset
* ^; @5 o$ r' u0 |1 BadoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
. o: ~$ Q+ p" e: C+ t
TL1 = "SELECT CL FROM Ergonomics where Hmin=100"

我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！
系统提示最后一句有“类型错误”。。请问如何解决？
9 v: |: X  J8 I: C; l' c3 v' j9 G
打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值