我程序里调用: Private Sub Command4_Click() Dim db As ADODB.Connection 'ado连接对象 Dim dbcmd As New ADODB.Command 'ado命令对象 Dim dbpara As New ADODB.Parameter 'ado参数对象 Dim rs As New ADODB.Recordset
Set db = cc.Fun_GetConnecttion(2) Set dbcmd.ActiveConnection = db