我定义的变量 a b 没有值, 为什么?

Question

Private Sub Button1_Click()
Unload Me
a = gettime1.Value
b = gettime2.Value
    With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=xt;UID=sa;PWD=xxx;APP=Microsoft Office XP;WSID=GZ-DATEBASE;DATABASE=tg" _
        , Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT resource.department, resource.gettime, resource.resourcenumber, resource.ordername, resource.state, resource.memo" & Chr(13) & "" & Chr(10) & "FROM tg.dbo.resource resource" & Chr(13) & "" & Chr(10) & "WHERE (resource.gettime>={ts a}" _
        , _
        "And resource.gettime<{ts b })" & Chr(13) & "" & Chr(10) & "ORDER BY resource.gettime" _
        )程序运行到这里{ts a}" 和{ts b })" 时,我发现我定义的变量 a  b 没有值
我第一次学习 vba, 问能问题比较幼稚,还请高手赐教,谢谢