Private Sub Form_Load()
Dim rs1 As New ADODB.Recordset
trvlb.LineStyle = tvwTreeLines
trvlb.ImageList = ImageList1
trvlb.Style = tvwTreelinesPlusMinusPictureText

Dim nodx As Node

rs1.Open "select * from lbmx where len(pk_lb)=2", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
    rs1.MoveFirst
    Do While Not rs1.EOF
        Set nodx = trvlb.Nodes.Add(, , rs1.Fields("pk_lb"), rs1.Fields("lbname"))
        rs1.MoveNext
    Loop
End If
txtfirnum.Text = rs1.RecordCount

End Sub
txtfirnum.Text 用于反应rs1的记录数，运行后显示-1
明明rs1的sql语句复制到sql 查询分析器中能够运行的。
所以不能把内容读到树的节点中，请高手指教，在下都蒙了

[ 本帖最后由 thjanxd 于 2012-3-28 08:21 编辑 ]

问题通过在窗口中添加ado控件得到解决，但是为什么dim 一个recordset 连接不到数据库呢
连接都是用的模块定义的连接
Public Function cnn() As String
cnn = "Provider=SQLOLEDB.1;password=1;Persist Security Info=true;user id=sa;Initial Catalog=jtzwgl;Data Source=PC2010087"
End Function
sql语句都是一样的
ado空间的recordcount>0而 recordset.recordcount=-1
了解的大师点拨一下吧，谢谢了

如果不添加控件 就不会有那些属性  就不能连接

首先，谢谢你。
其次，我原来数据库连接时候有两种方式可以的，即
1、通过添加控件可以连接
2、通过自定义ado应该也可以啊
就是这样的
dim rs as new adodb.recordset
rs.open sql,cnn,3,2 或者
rs.open sql,cnn,adopenkeyset,adlockoptimistic的
3、现在自定义的这种不好用了，不知为何，其他窗口的还可以用（两种方式都可以）。

[ 本帖最后由 thjanxd 于 2012-3-31 15:42 编辑 ]