调用EXecl数据到msflexgrid中显示

VB code

Private Sub Command1_Click()Dim xlsconn As New ADODB.ConnectionDim xlscmd As New ADODB.CommandDim rs As New ADODB.Recordsetxlsconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\TEST\test.xls;Extended Properties=excel 8.0;Persist Security Info=False"xlsconn.Open'提示对象变量未设置Set rs = xlsconn.Execute("select * from [sheet1$]")Set MSFlexGrid1.DataSource = rsrs.CloseMSFlexGrid1.RefreshEnd Sub

小弟刚学，不太懂，烦请大哥大姐帮我解决下。


[解决办法]
将查询得来的记录组合成一条条的记录AddItem到MSFlexGrid中