DataGrid不能显示数据问题！（急~~~~~~~~~~~~）

Question

使用ADODC1控件显示数据没问题！一切正常.(请教高手！)
但是用ADO代码连接
    Set DataGrid1.DataSource = rs
不显示，也无错误提示！（注：rs可以在文本框显示数据，说明是没问题的）
        vb6<sp5>  ado 2.7 library!(请教高手！)

Answer 1

还有一个问题就是，我把一个Text1.dataformat设定为“货币”没问题
，(如：输入1234)输入的数据变成了"￥1,234.00",但是，当我把Text2.dataformat也设定为
“货币”时，结果不行了，到后来，干脆两个都不显示"￥"符号了！！困扰！！
现在随便怎么搞都不行（郁闷!）
   注：我是在属性栏里设定的！

Answer 2

ADO和DataGrid帮定非常方便，我用的时候好像从没有发生过意外。
你说无错误提示！是不是你的代码中有错误处理，所以屏蔽了错误提示。

Answer 3

Option Explicit
Private cn As ADODB.Connection
Private rsShuzhong As ADODB.RecordsetPrivate Sub Form_Load()
'************************************树种表连接****************************
    Set cn = New ADODB.Connection
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open App.Path & "/kfsystem_sz.mdb"    Set rsShuzhong = New ADODB.Recordset
    rsShuzhong.Open "树种表", cnCnn1.cnCnn, adOpenStatic, adLockOptimistic, adCmdTable 
    display
    End Sub   Private Function display()
    Set DataGrid1.DataSource = rsShuzhong
    txtShuzhong.Text = rsShuzhong!树种
    
End Function

Answer 4

更正 注：cnCnn1.cnCnn  应为cn

Answer 5

加上这一句，试试
    rsShuzhong.CursorLocation =adUseClient 

Answer 6

Set DataGrid1.DataSource = rsShuzhong
    rsShuzhong.CursorLocation =adUseClient

Answer 7

不要在属性里设
Text1.Text = FormatCurrency(Text1.Text)

Answer 8

rsShuzhong.Open "树种表", cnCnn1.cnCnn, adOpenStatic, adLockOptimistic, adCmdTable 
此句中最后 的 adCmdTable可能有问题，应再查一查是否应写为adcmdText或干脆不写

Answer 9

谢谢czjw(寒雪)问题已经解决，不知道为什么要加这句呢？？