再送200分，求将EXCEL中的数据保存到我得ACCESS中，并覆盖原表

Question

在EXCEL中的表格：
     第一行是字段名，其余各行是记录
将这个表格保存一个数据库文件shuju.mdb中得一个表格yizhi中并把该表覆盖，字段名按照EXCEL中的表格中的一行的数据。

Answer 1

Dim Conn As New ADODB.ConnectionOn Error GoTo e
If File1.FileName <> "" Then
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\nkds.mdb"
    Conn.Open
    Conn.Execute "delete from db90003"
    Conn.Execute "INSERT INTO db90003 SELECT * From [Excel 8.0;DATABASE=" & (File1.Path & File1.FileName) & "].[Sheet1$]", , adCmdText
    Conn.Close
    Set Conn = Nothing
    MsgBox "数据成功导入!", 0, "提示"
Else
    MsgBox "请选择导入文件!", 0, "提示"
End If
Exit Sub
e:
MsgBox Err.Description
Err.Clear这样可以了。

Answer 2

SQL语句导入导出大全 
http://www.hackhome.com/2004/8-13/22279.html

Answer 3

'工程->引用Microsoft ActiveX Data Objects 2.x Library 
Private Sub Command1_Click()
    Dim mCon As New ADODB.Connection
    Dim strSQL As String
    
    mCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\shuju.mdb" & ";Persist Security Info=False"
    
    mCon.Execute "Drop Table yizhi"
    
    strSQL = "Select * Into yizhi From [Excel 8.0;Database=" & App.Path & "\Book1.xls].[Sheet1$]"
    mCon.Execute strSQL
    
    mCon.Close
    Set mCon = Nothing
End Sub