我程序里调用:
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