Access的简单问题.真的很菜! 在线等待。。。。。。

Question

这是一个关于连接字的问题'm_strCnn = "Driver={Micorosoft Access driver};Server=(local);UID='" + Trim(m_strUserNo) + "';PWD='" + Trim(m_strPassword) + "';Database='" + m_strCompany + "'"
        'm_strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Password='" + Trim(m_strPassword) + "';USER ID='" + Trim(m_strUserNo) + "';Data Source='" + m_strCompany + "';Persist Security Info=False"
        m_strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ezacc\data\dbPorter.mdb;Persist Security Info=True"
End SelectoCnn.ConnectionString = m_strCnn
oCnn.Mode = adModeReadWrite
oCnn.CursorLocation = adUseClient
oCnn.ConnectionTimeout = 0
oCnn.Open 这个连接在VB 工程中可以连通但是在COM+中我通过变量来生成连接就报---------------------------
DataChange
---------------------------
-1不支持此接口Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ezacc\data\dbPorter.mdb;Persist Security Info=True
---------------------------
确定   
---------------------------
的错误引用如下：test.vbp---------------------------------------------
Dim objCom As Object
Set objCom = CreateObject("oCom_US.Import")returnValue = objCom.BeginImportData(m_strCompany, m_strUserNo, m_strPassword, Trim(strCompany), Trim(txtUserNo.Text), Trim(txtPassword.Text), sltType.ListIndex)
MsgBox returnValuecom dll------------------------------------------Public Function BeginImportData(ByVal strCompany As String, _
                                ByVal strUserNo As String, _
                                ByVal strPassword As String, _
                                ByVal m_strCompany As String, _
                                ByVal m_strUserNo As String, _
                                ByVal m_strPassword As String, _
                                ByVal strType As String) As Variant
On Error GoTo errHandle
BeginImportData = "-1"
Dim sCnn As New ADODB.Connection
Dim objUtil As Object
Dim oCnn As New ADODB.Connection
Dim strSql As String
Dim m_strCnn As String
Set objUtil = CreateObject("util.dodatabase")
Select Case strType
    Case "1"
        
        m_strCnn = objUtil.getConnectString(m_strCompany, m_strUserNo, m_strPassword)
        If m_strCnn = "" Then
            GoTo errHandle
        End If
    Case "2"
        
        'm_strCnn = "Driver={Micorosoft Access driver};Server=(local);UID='" + Trim(m_strUserNo) + "';PWD='" + Trim(m_strPassword) + "';Database='" + m_strCompany + "'"
        'm_strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Password='" + Trim(m_strPassword) + "';USER ID='" + Trim(m_strUserNo) + "';Data Source='" + m_strCompany + "';Persist Security Info=False"
        m_strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ezacc\data\dbPorter.mdb;Persist Security Info=True"
End Select'oCnn.ConnectionString = m_strCnn
'oCnn.Mode = adModeReadWrite
'oCnn.CursorLocation = adUseClient
'oCnn.ConnectionTimeout = 0
oCnn.Open m_strCnnDim strCnn As StringstrCnn = objUtil.getConnectString(strCompany, strUserNo, strPassword)
If strCnn = "" Then
    GoTo errHandle
End IfsCnn.ConnectionString = strCnn
sCnn.Mode = adModeReadWrite
sCnn.CursorLocation = adUseClient
sCnn.ConnectionTimeout = 0
sCnn.Open