Import de données depuis un tableau excel avec formulaire et une condition

Bonjour,

j´essaye de programmer un ERP avec une base de donnée Access.
J´ai 2 table: "Stueckliste"(liste de pièces) et "Projektlist" (liste de projet)

Pour importer des données dans ma table "Stueckliste" (liste de pièces), j´ai créer un formulaire avec lequel je recherche un fichier excel, avant d´importer les données.

Jusqu´ici tout va bien. Mais j´aimerais maintenant vérifier que les données que j´importe contiennent un n° de projet existant dans "Projektlist". Et je n´arrive pas à faire ce controle.
j´ai essayé plusieur syntaxe, mais sans succès pour :Zaehler = DCount("*", "Projektlist", "[Projektnummer]='vProjektnummer'")

Je vous copie ci-dessous mon code, merci d´avance pour votre aide

Private Sub btn_import_Click()

    Dim ChaineSQL As String
    Dim vProjektnummer As String
    Dim Zaehler As String
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook

    vProjektnummer = 0
    Zaehler = 0

    
    Set xlApp = CreateObject("Excel.Application")

    
    xlApp.Visible = True
    
     xlApp.Workbooks.Open Me.txt_path, True, False

    vProjektnummer = Worksheets("Tabelle1").Range("E2").Value
    
    Zaehler = DCount("*", "Projektlist", "[Projektnummer]='vProjektnummer'")


    If Zaeler > 0 Then
    
            'Import from file in Text.feld die Daten in "Stueckliste"
     DoCmd.TransferSpreadsheet acImport, 8, "Stueckliste", Me.txt_path, True

    
            'Delete empty Lines
        ChaineSQL = "delete from Stueckliste where [Teilenummer] is null"
      DoCmd.RunSQL ChaineSQL
    
    Else
        MsgBox "Projektnummer nicht in Projektliste"
    End If
    
    

End Sub