关于VB6.0中用DataGrid显示Excel数据的问题

[hgdjia]

如题，在VB6.0中用DataGrid不能显示Excel数据，
代码如下：
str = CommonDialog1.FileName '贾军修改
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=" & str & ";Extended Properties='Excel 8.0;imes=1'"
rs.Open "select * from [Sheet1$]", cn, adOpenKeyset, adLockOptimistic
rs.CursorLocation = adUseClient
Set DataGrid1.DataSource = rs
MsgBox "共读取了" & rs.RecordCount & "个数据"


注解：之前添加了一个对话框用于打开一个Excel文件，
MsgBox "共读取了" & rs.RecordCount & "个数据"
这句都能执行，不提示错误，就是DATAGRID里面什么没有，不显示EXCEL中内容，也不闪,DATAGRID控件均采用默认方式，几乎没有改动
还希望高手赐教，急死了

[hgdjia]

另外把DATAGRID控件换成MSFLEXGRID控件问题还是一样

[worldy]

经测试，下面代码完全正确 Private Sub Command1_Click() Dim sFile As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Tdlg.ShowOpen sFile = Tdlg.FileName '贾军修改 Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=" & sFile & ";Extended Properties='Excel 8.0;imes=1'" rs.CursorLocation = adUseClient rs.Open "select * from [Sheet1$]", cn, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = rs End Sub

[worldy]

Tdlg就是你的CommonDialog1