我给输入Excel单元格l3，但没有从数据库中获得输出

Question

a = Worksheets(1).Range("L3").Value
source = "select * from table1 where [UserName] =' " & a & " ' "