再问ADO配置连接字符串，高手请进

Question

首先在工程中引用microshoft ole db service component 1.0 type library
就可以在程序中调出属性页，代码如下：
Dim objDataLink As MSDASC.DataLinks
Dim strConn as string Set objDataLink = New MSDASC.DataLinks
strConn = objDataLink.PromptNew
MsgBox strConn
strConn的值就是连接字符串，但我发现当Access库有密码时，测试连接出错，在这里问了半天也没人理，如果你知道了原因请告诉我：[email protected]

Answer 1

在main()中加入
  pMDBPath = App.Path & "\NewData.mdb"
  x = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & pMDBPath
  Set pConn = New ADODB.Connection
  pConn.CursorLocation = adUseClient
  pConn.Open x
即可。

Answer 2

调用Ado连接窗口，获得连接字符串,方法如下！
　　在工程里面引用Microsoft OLE DB Service Component 1.0 Type Libary和Microsoft ActiveX Data Objects 2.x Library代码：
       ...
       Dim dlTemp As MSDASC.DataLinks
   　　Dim cnTemp As ADODB.connection
   
   　　Set dlTemp = New MSDASC.DataLinks
   　　Set cnTemp = New ADODB.connection
   
   　　dlTemp.PromptEdit cnTemp       '*******关键之处*******
   　　MsgBox cnTemp.ConnectionString '这就是连接字符串了   　　Set dlTemp = Nothing
   　　Set cnTemp = Nothing
　　   ...　　运行时会弹出一个与ADODC相似的生成连接字符串的向导，输入各相关数据，“确定”后,信息框显示得到的连接串，当然，这个字符串可以用在连接连接池的操作中！ 老大，我打得很辛苦，而且上网还花钱，如果这个答案您满意的话，您就把分给我吧！

Answer 3

Option Explicit
Private constore As ADODB.Connection
Private rsstore As ADODB.RecordsetPrivate Sub Form_Load()
    Set constore = New ADODB.Connection
    constore.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\library.mdb"
    constore.Open
    Set rsstore = New ADODB.Recordset
    rsstore.Open "入库表", constore, adOpenStatic, adLockOptimistic, adCmdTable
    
    
End Sub