Dim sDruckerName                 As String
Dim sSuchDrucker                 As String
 
sDruckerName = "\\w2srv14\HP LJ P3015"
 
sSuchDrucker = Replace$(sDruckerName,"\", "\\")  ' \\\\w2srv14\\HP LJ P3015"
 
SELECT * FROM tbldrucker WHERE druckername = '" & sSuchDrucker & "'"