怎样将excel数据导入access原有表中，原有数据不覆盖？

Question

怎样将excel数据导入access原有表中，原有数据不覆盖？Private Sub exceltoaccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
  Dim db As Database
  Dim rs As Recordset
  Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")
  Call db.Execute("Select   *   into   [;database=" & sAccessDBPath & "]." & sAccessTable & "   FROM   [" & sSheetName & "$]")
End Sub
Private Sub mnufilelist_Click(Index As Integer)Select Case Index
case 2Dim s1 As String
 Dim s2 As String
 Dim s3 As String
 Dim s4 As String
 s1 = "sheet1"
 s2 = App.Path & "\123.xls"
 s3 = "temp"
 s4 = App.Path & "\123.mdb"
 Call exceltoaccess(s1, s2, s3,s4）
End Select
End Sub我用上面代码每次都要保存为新表，不是我想要的。 谁能给我改改？