如何将ADODB.Connection传给Adodc?

Question

Set Adodc1.DataSource = Ado.DataSource

Answer 1

你就用g-cnn不好吗？用的时候从新打开记录集就可以啦

Answer 2

Recordset 属性（ADO Data 控件）
      返回或设置对下一级 ADO Recordset 对象的引用。语法object.Recordset [= recordset]Recordset 属性的语法包括下面这些部分：部分 描述 
object 一个对象表达式，其值为“应用于”列表中的一个对象。 
recordset 一个记录集对象。 
说明利用 Recordset 属性，可以使用 ADO 的 ADODB.Recordset 对象 的方法、属性、和事件。您必须在 Set 语句中使用 Recordset 属性，如下例所示：Dim rsNwind As New ADODB.Recordset
' 此处没有显示用于打开此 ADO Recordset 对象的代码。
Set ADODC1.Recordset = rsNwind如果要对 Recordset 对象的事件进行编程，请使用 WithEvents 关键字声明一个对象变量，如下例所示。Option Explicit
Dim WithEvents rsNames As ADODB.RecordsetPrivate Sub Form_Load()
   Set rsNames = New ADODB.Recordset
   ' 此处没有显示用于创建此记录集的代码。
   rsNames.MoveFirst ' 移动到记录集的开始位置。   Set ADODC1.Recordset = rsNames   With Text1
      Set .DataSource = ADODC1
      .DataField = "Name"
   End With
End SubPrivate Sub rsNames_FieldChangeComplete(ByVal cFields As Long, _
ByVal Fields As Variant, ByVal pError As ADODB.Error, adStatus As _
ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
   Debug.Print "New Name", pRecordset!Name
End Sub