急急急！！！怎么将数据库中查的数据输出到vb中的text中，代码怎么写？

如果只是一个字段值：text1.text=finddata
如果是多个字段：text1.multiline 属性要设为true,
Private Sub Command1_Click()
dim finddata(2) as string
finddata(0) = "data1"
finddata(1) = "data2"
finddata(2) = "dfas3"
Text1.Text = finddata(0) + Space(3) + finddata(1) + Space(3) + finddata(2) + Space(3)
End Sub

strSQL = "select * from 数据表名 Order By ID"
RS.Open strSQL, db, 2, 2
text1.text=RS!字段1
text2.text=RS!字段2
........................................................
RS.Close '关闭记录集对象
Set RS = Nothing