帮帮忙错在哪里了？

mixegg

Dim tj As String
Dim tj1 As Integer
Dim sytime As String
tj = "select sum(qryforsycx.广告长度) from qryforsycx"
List48.RowSource = tj
tj1 = Val(tj)
sytime = 900 - tj1
List50.RowSource = sytime

为什么得不到正确的值？不知道怎么才可以了。。。为什么 tj1=val(tj)的值为0？？