i tried as below and it worked fine.
strsql = "SELECT DISTINCT printpoolno FROM tblmaster where username='" & Application.UserName & "' AND Date1=#" & Format(DateValue("04/03/2015"), "mm/dd/yyyy") & "#"
    MsgBox strsql