我的代码是这样的：
Public Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As Recordset
Dim sql As String

Set db = OpenDatabase(sExcelPath, True, False, "excel 8.0")

Debug.Print sExcelPath

sql = "select A,E,F,G into [;database=" & sAccessDBPath & "]." & sAccessTable & " from [" & sSheetName & "$] where D='event' "

Debug.Print sql

Call db.Execute(sql)

MsgBox "ok"
End Sub

Private Sub Command1_Click()
ExportExcelSheetToAccess "sheet1", "h41xzc2.xls", "2", "abc.mdb"
End Sub

sql字符串没有加where那一句时提示“参数不足，期待是4”，加上以后“期待是5”，去掉sheet1后面的$后就找不到“sheet1”，怎么回事哦，大虾们帮我看看!