vb spread 控件加载表内数据

Question

===========================================================================
SQL数据库连接
===========================================================================Dim conn As New Adodb.Connection
Dim rs As Adodb.Recordset
Dim CnStr As String, Sql As StringDim dbip As String
Dim dbname As String
Dim dbuser As String
Dim dbpw As String
dbip = "172.21.245.219"
dbname = "netking"
dbuser = "sa"
dbpw = "coson"CnStr = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;uid=" & dbuser & ";pwd=" & dbpw & ";DRIVER=SQL Server;DATABASE=" & dbname & ";WSID=GQSOFT;SERVER=" & dbipconn.open CnStr, 1, 3===========================================================================
Spread 控件加载数据
===========================================================================
Set rs = New Adodb.recordeset
Sql = "select * from trans_data where tr_date= " & "091119"
rs.open Sql, conn定义了数据记录集后，请教一下怎么加载数据记录集的数据到Spread 控件里去？
在线等！