如何将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
-------------------------------------------------------------------------------