菜鸟求助！谢谢！

收支 日期 姓名 金额 备注 编号收入 03-4-7 XX 300 奖金 61
收入 03-4-7 XX 1000 工资 63
支出 03-3-29 XX 2000 学费 68
支出 03-3-11 XX 1000 餐费 69
支出 03-4-4 XX 1000 吃饭 74
支出 03-4-6 XX 100 洗衣费 75我想分别在VB中做“收支”“日期”“金额”的查询，用户输入起始值和结束值，然后把结果返回MSHFlexGrid控件中。Set aA = New ADODB.Connection '实例化
Set tB1 = New ADODB.Recordset '实例化
aA.Provider = "microsoft.jet.oledb.4.0"
aA.Open "data source=" & App.Path & "\data\familyaccount.mdb"
tB1.Open "lsxj", aA, adOpenDynamic, adLockOptimisticSet tB2 = New ADODB.Recordset '实例化
Dim k As Integer
Dim l As Integer
k = Val(InputBox("输入查询金额起始值"))
l = Val(InputBox("输入查询金额结束值"))
tB2.Open "select * from lsxj where 金额 Between '" & k & "' And '" & l & "'", aA, adOpenDynamic, adLockOptimistic请高手指教，还有就是如何把结果返回MSHFlexGrid控件中。
多谢！