Has puesto
No has puesto que vale farmacia suponiendo que fuera una variable (y entonces lo habrias puesto mal). Deberias poner algo como
Código:
Dim farmacia
farmacia="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("farmacia.mdb")&""
Y luego poner
Saludos.