如何将用SQL语句查询得到的数据动态地传给datagrid或其他控件？

Question

   Dim c As MSDataGridLib.Column   sSql = "Select * From tablename"
   Set rst = New ADODB.Recordset
   rst.CursorLocation = adUseClient
   rst.Open sSql, cnn, 3, 3
   Set adoData.Recordset = rst        ' adoData是一个ADODC控件   '将DataGrid的列与查询出来的列绑定 
   '删除原来的列
   For i = DataGrid1.Columns.Count - 1 To 1 Step -1
      DataGrid1.Columns.Remove (i)
   Next
   '加入新列
   For i = 0 To adoData.Recordset.Fields.Count - 1
      If i = 0 Then
         Set c = DataGrid1.Columns(i)
      Else
         Set c = DataGrid1.Columns.Add(DataGrid1.Columns.Count)
      End If
      c.Visible = True
      c.Width = 1000
      c.Caption = adoData.Recordset.Fields(i).Name
      c.Alignment = dbgRight
   Next   Set DataGrid1.DataSource = adoData.Recordset

Answer 1

dim rs as new adodc.record
rs.open........
  Set DataGrid1.DataSource=rs

Answer 2

谢谢，可以直接打印DataGrid吗？