怎么让数据记录集显示在text中

Question

我想让一个统计后的记录集显示在TEXT控件中
请问怎么实现

Answer 1

Dim t As new ADODB.RecordSet
Dim s As String'这里设置t的值,如果不知道怎么生成t,请搜索相关帮助
...While Not t.EOF
    s = t!字段1 & vbTab & t!字段2 & vbTab & ... & t!字段n & vbCrLf
    t.MoveNext
WendTextBox1.Text = s

Answer 2

Dim cn as ADODB.Connection
Dim rs as ADODB.RecordSet
...
Set rs = cn.Execute("SELECT SUM(AMOUNT) FROM BILL")
TextBox1.Text = rs(0).Value