请问此时如何将当前记录集Rst中的内容在窗体的DataGrid中显示出来

Question

接着上面的提问
-----------------------------还有就是如果在代码中定义了：Dim i as Integer为什么用　
Set i = 0 会出错，但是上面用的 Set Rst = Cmd.Execute 就行?-----------------------------

Answer 1

上面的Rst可以用MsgBox Rst.GetString显示出来，但要怎样才能显示在表格里

Answer 2

1.set DataGrid.DateSource=Rst
DataGrid.Refresh2.不能 set i=0
只能 i=0
set的是对象

Answer 3

上面的运行有错误，错误指示Set DataGrid1.DateSource = Rst“行集合不能作为标签”

Answer 4

Dim Cnn As ADODB.Connection
  Dim Cmd As ADODB.Command
  Dim Rst As ADODB.Recordset
  Dim Fie As ADODB.Fields
  Dim Par As ADODB.Parameter
  
  Set Cnn = New ADODB.Connection
  
  Cnn.CursorLocation = adUseClient '加入这句
  
  Set Cmd = New ADODB.Command
  Set Rst = New ADODB.Recordset
  
  Cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
  Cnn.ConnectionString = "Data Source=D:\Forum\NWIND.MDB;Persist Security Info=False"
  Cnn.Open
  
  Cmd.ActiveConnection = Cnn
  Cmd.CommandType = adCmdTable
  Cmd.CommandText = "Orders"
  Set Rst = Cmd.Execute
  Set DataGrid1.DataSource = Rst '加入这句