如何把数据(ADODB生成的记录集)添加到DBGRID控件

Question

如题
我以前是用ADODC控件和DBGRID做捆绑,现在想通过ADODB方法把数据弄到DBGRID上,但不知道怎么弄代码如下(SQL数据库已经连接上,SQL语句没问题)
Dim RsProAll As New ADODB.Recordset
Dim StrSQL As String
  StrSQL = "SELECT PROID AS 序号, PROCode AS 代码, PROName AS 产品名称, Standard AS 规格, Pakeage AS 包装,ProTypeId AS 类别," _
         + "USERAID AS 成品库位, USERBID AS 查询库位, PriceA AS 供应价, PriceB AS 含税批价, PriceC AS 零售价 FROM PRODUCT"
  RsProAll.Open StrSQL, Conn, 3, 2接下来该怎么写

Answer 1

是DBGrid还是DataGrid?如果是DataGrid，这样写就行了：Set DataGrid1.DataSource=RsProAll （需要设置客户端游标）
......
RsProAll.CursorLocation=adUseClient '设置客户端游标
RsProAll.Open StrSQL, Conn, 3, 2
Set DataGrid1.DataSource=RsProAll

Answer 2

Dim RsProAll As New ADODB.Recordset
Dim StrSQL As String
  StrSQL = "SELECT PROID AS 序号, PROCode AS 代码, PROName AS 产品名称, Standard AS 规格, Pakeage AS 包装,ProTypeId AS 类别," _
         + "USERAID AS 成品库位, USERBID AS 查询库位, PriceA AS 供应价, PriceB AS 含税批价, PriceC AS 零售价 FROM PRODUCT"
 
RsProAll.CursorLocation = adUseClient '定义为本地游标
 
RsProAll.Open StrSQL, Conn, 3, 2Set datagrid1.DataSource = RsProAll