xDosyaAd = "d:\Desktop\puantaj\EXPORT.XLSX"
xSayfaAd = "Sheet1"
xSQL = "INSERT INTO puantaj " & _
      "SELECT Xl.* " & _
      "FROM [Excel 12.0 Xml;HDR=Yes;Database=" & xDosyaAd & "].[" & xSayfaAd & "$] as XL LEFT JOIN puantaj ON " & _
            "(Xl.[Çıkış tarihi] = puantaj.[Çıkış tarihi]) AND " & _
            "(puantaj.[Tren No] =clng(Xl.[Tren No])) AND " & _
            "(clng(Xl.[Personel numarası]) = puantaj.[Personel numarası]) " & _
      "WHERE (((puantaj.[Personel numarası]) Is Null) AND ((puantaj.[Tren No]) Is Null) AND ((puantaj.[Çıkış tarihi]) Is Null));"
CurrentDb.Execute xSQL