Fejl i kode! (Private sub)

Hej,

Jeg har fået hjælp til følgende kode som i Access henter frem en kunde fra en SQL database ved indtastning af kundenr.

Når jeg afprøver siger den at der er fejl i linje:        CurrentDb.Execute (SQL)

Jeg tror at det har noget at gøre med at den ikke forstår at den skal bruge SQL og ikke "current".
Er der nogen der kan hjælpe :-)

!!!KODE!!!!
Private Sub cmdTilføj_Click()
    Dim SQL As String
    If Not IsNull(DLookup("No_", "dbo_vw_THORN_NORGE_AS$Customer", "No_=txtKundenr")) Then
        SQL = "INSERT INTO Labels ([Kundenr], [Navn], [Adresse], [By])" & vbCrLf & _
            "SELECT [No_], [Name], [Address], [City]" & vbCrLf & _
            "FROM dbo_vw_THORN_NORGE_AS$Customer WHERE No_ = " & txtKundenr.Value
        CurrentDb.Execute (SQL)
        Me.Requery
    Else
        MsgBox "Kundenr. " & txtKundenr & " kendes ikke", vbExclamation
    End If
    txtKundenr = ""
    txtKundenr.SetFocus
End Sub