急求VB EXCEL导入ACCESS数据库代码

Dim Conn As ADODB.Connection Set Conn = New ADODB.Connection Conn.Open "连接到你的数据库XJGL.MDB的字符串" Conn.Execute "select * into tmptable from [excel 8.0;database=" + 你的excel表名 + "].[sheet名$]" Conn.Execute "inse