VB把excel数据导入ACCESS

Dim SQL As String

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection

Dim Constr As String

Constr = "PROVIDER = Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\db.mdb"

conn.Open Constr

SQL = "select *  into t2 from  [excel 8.0;database=c:\book1.xls].[sheet1$]"

conn.Execute SQL

conn.Close

Set conn = Nothing