请问怎样在excel的vbe中使用sql语言将当前工作表数据录入access数据库呢？下面代码运行时始终提示access数据库引擎找不到输入表

[charlie_chch]

Sub 录入数据()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim db_dir As String
Dim s1 As String, pt$, jh$, cl%
Dim arr()

arr = Range("b2:d3").Value
Set conn = CreateObject("ADODB.connection")
Set rs = CreateObject("ADODB.recordset")
db_dir = "provider = microsoft.ace.oledb.12.0;data source =" & ThisWorkbook.Path & "\Database1.accdb"
conn.Open db_dir

For i = 2 To 4

s1 = "insert into 生产数据(平台,井号,时间)" & _
"SELECT * FROM [sheet1$]"
conn.Execute s1
Next i
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub