将excel数据导入 Access 问题 - VB / 基础类

用VB程序中将excel的文件放在和工程同一个文件夹中，导入时没有错误，但在别的目录下导入就会出现错误
提示： 主关键字重复（这个判断我在程序中加了，在和ACCESS同一目录下时没出现错误）
  CommonDialog1.FileName = ""
  'CommonDialog1.flags = vbofnfilemustexist
  CommonDialog1.Filter = "All file|*.*|(*.xls)|*.xls"
  CommonDialog1.FilterIndex = 2
  CommonDialog1.DialogTitle = "导入文件"
  CommonDialog1.Action = 1
   
  If CommonDialog1.FileName = "" Then
  ' X = MsgBox("没有这个文件", 37, "提示")
   
  Else
  Dim oConn As New ADODB.Connection
  '连接Exce
  ' On Error Resume Next
  oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & CommonDialog1.FileName & ";" & "Extended Properties=""Excel 8.0;"""
  'oConn.Execute ("insert into [;database=f:\登记项目\zgda.mdb].个人基本资料1(ID,fld1,fld2) Select * from [Sheet1$]" & "where ID not in (select ID from [;database=zgda.mdb].个人基本资料1)")
  oConn.Execute ("insert into [;database=" & app.path&"\zgda.mdb].个人基本资料1(ID,fld1,fld2) Select *