如何将conn传递给VC ConnectAccess函数的参数

11111
使用了DLL；
Dim Conn As ADODB.Connection   如何将conn传递给VC  ConnectAccess函数的参数
-----------------------------VC代码-------------------------------------------------
int   __stdcall ConnectAccess(_ConnectionPtr m_pConnection)
{
        CoInitialize(NULL);  //Dll中使用COM，初始化COM
m_pConnection.CreateInstance(__uuidof(Connection));//构造函数初始化Connection指针
try  //抛出异常
    {
  //连接没有密码的数据库  ""是密码
  m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\\数据库文件\\工作日程安排表.mdb","","",adModeUnknown);

    }
    catch(_com_error e)//捕捉异常
    {
  //失败弹出对话框
  MessageBox (NULL, TEXT ("数据库连接失败，确认数据库工作日程安排表.mdb是否在当前路径下!"), TEXT ("HelloMsg"), 0) ;
  return FALSE;
}
}

-----------------------------VB代码--------------------------------------------------
Option Explicit
Private Declare Sub ConnectAccess Lib "E:\界面\dll.dll" (Conn As ADODB.Connection)
Private Sub Command10_Click()
Dim i As String
i = Text1
Text43 = i
Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection

End Sub
-------------------------------------------------------------------------------

--------------------编程问答-------------------- 你传进去的Connection对象不是已经实例化了木,为啥还要在里面又创建一次?

声明改这样看看
Private Declare Function ConnectAccess Lib "E:\界面\dll.dll" (Conn As ADODB.Connection) As Long --------------------编程问答-------------------- 不明LZ在说什么 --------------------编程问答-------------------- 什么呀

补充：VB ,  基础类