Dataudträk vises ikke i msgbox

Hej,

Jeg har nedenstående kode som skal vise en msgbox med dataudträk. Det virker fint med "srcCustomerLicenseplate" og "srcCustomerName" men resten VIL BARE IKKE VIRKE. Jeg fatter ikke hvorfor da data findes i DB/myQ. Kan nogen hjälpe?

-----

Private Sub btnInfo_Click()

Dim QdfInfo As QueryDef
    On Error Resume Next
    CurrentDb.QueryDefs.Delete "myQ"
    On Error GoTo 0
 
    Set QdfInfo = CurrentDb.CreateQueryDef("myQ")
    QdfInfo.SQL = "SELECT tblSearch.* FROM tblSearch WHERE tblSearch.srcCustomerLicenseplate = '" & Me.srcCustomerLicenseplate.Value & "'"

MsgBox "Reg.nr./Ägare: " & srcCustomerLicenseplate & ", " & srcCustomerName & " " & vbCrLf & "" & vbCrLf & "Adress: " & srcCustomerAddress & " " & vbCrLf & "Postort: " & srcCustomerCity & " " & vbCrLf & "E-post: " & srcCustomerEmail & " ", vbOKOnly, "Detaljerad information!"

End Sub
-----

Mvh Rickie