dlookup error

[pot2000]

I am getting Run-time error 2471
the object doesn't contain the automation object 'x' x being the fabrikant. When running the following

Private Sub Fabrikant_Leverancier_AfterUpdate()

Dim strfilter As String
strfilter = Me!Fabrikant

Me!korting = DLookup("[korting]", "[tblFabrikanten]", strfilter)
Me!PrijsPerEenheidinclBTW = [PrijsPerEenheidexclBTW] * 1.19 * (1 - ([korting] / 100))

End Sub

Can any body help me please

 

[Mile-O]

Me.korting = DLookup("[korting]", "tblFabrikanten", "[Fabrikant] = """ & Me.Fabrikant & """")

 

[pot2000]

thanks its working now