vb中将excel数据 导入到vsflexgrid 7 的问题

本人初学VB，现在想在vb中将excel数据 导入到vsflexgrid 7里。下面的这段代码不知道错在哪里。运行的时候会提示Sheet1$无效。求高手指点为。

Dim xlApp As Excel.Application
Dim xlBooks As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dialog1.Filename = ""
Dialog1.Filter = "Excel表|*.xls"
Dialog1.DialogTitle = "请选择要导入的文件"
Dialog1.ShowOpen
Filename = Dialog1.Filename

If Filename = "" Then
Exit Sub
End If

Set xlApp = CreateObject("Excel.application")
Set xlBooks = xlApp.Workbooks.Open(Filename)
Set xlSheet = xlBooks.Worksheets(1)
xlSheet.Activate
xlApp.Visible = True

rs.Open "select * from [Sheet1$]", conn, adOpenDynamic, adLockOptimistic
Set Grid1.DataSource = rs

xlBooks.RunAutoMacros (xlAutoClose)
xlBooks.Close (True)
xlApp.Quit
Set xlApp = Nothing

rs.Open "select * from [Sheet1$]", conn, adOpenDynamic, adLockOptimistic
Set Grid1.DataSource = rs
这两句不正确。

这个很容易就能做到，可以查下相关vba的编程方式。