vb+sql问题1！！急！在线等1！

Question

这个一段VB代码，其中的sql语句怎么返回值！！！！我要把sql语句中的sum(number)的值传给文本框text4!!!
Private Sub Command1_Click()
    Dim a As String
    Dim t As Date
    Dim s As Date
        
    Dim txtsql As String        '用来存放SQL语句
    Dim rs As ADODB.Recordset  '用来存放记录集对象
    Dim MsgText As String       '用来存放返回信息
    
    a = Text1.Text
    t = CDate(Text2.Text)
    s = CDate(Text3.Text)
########################################################################################
    txtsql = "select sum(number) from Consumable where ConsumableID='" & a & "' and shijian>'" & t & "' and shijian<'" & s & "'"
    Set rs = ExecuteSQL(txtsql, MsgText)
########################################################################################
   
    MsgBox a
    MsgBox t
    MsgBox s
    text4.text=sql返回的sum(number)的值
End Sub

Answer 1

txtsql = "select sum(number) as Num from Consumable where ConsumableID='" & a & "' and shijian>'" & t & "' and shijian<'" & s & "'"
'----------------
text4.text = rs.Fields("Num")

Answer 2

text4.text = rs.Fields("Num")