如何连接一个设有密码的ADO数据源~？

Question

reg_tab什么东西？应该为sql语句。例子:
strconn = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=wangqiang;password=123;Data Source=szic"
好像少了一个用户名。

Answer 1

打开到数据源的连接。语法connection.Open ConnectionString, UserID, Password, OpenOptions参数ConnectionString   可选，字符串，包含连接信息。参阅 ConnectionString 属性可获得有效设置的详细信息。UserID   可选，字符串，包含建立连接时所使用的用户名称。Password   可选，字符串，包含建立连接时所用密码。OpenOptions   可选，ConnectOptionEnum 值。如果设置为 adConnectAsync，则异步打开连接。当连接可用时将产生 ConnectComplete 事件。说明使用 Connection 对象的 Open 方法可建立到数据源的物理连接。在该方法成功完成后连接是活跃的，可以对它发出命令并且处理结果。使用可选的 ConnectionString 参数指定连接字符串，包含由分号分隔的一系列 argument = value 语句。ConnectionString 属性自动继承用于 ConnectionString 参数的值，因此可在打开之前设置 Connection 对象的 ConnectionString 属性，或在 Open 方法调用时使用 ConnectionString 参数设置或覆盖当前连接参数。如果在 ConnectionString 参数和可选的 UserID 及 Password 参数中传送用户和密码信息，那么 UserID 和 Password 参数将覆盖 ConnectionString 中指定的值。在对打开的 Connection 的操作结束后，可使用 Close 方法释放所有关联的系统资源。关闭对象并非将它从内存中删除；可以更改它的属性设置并在以后再次使用 Open 方法打开它。要将对象完全从内存中删除，可将对象变量设置为 Nothing。Remote Data Service 用法    当在客户端的 Connection 对象上使用 Open 方法时，在 Connection 对象上打开 Recordset 之前 Open 方法并未实际建立到服务器的连接。

Answer 2

ConnectionString 属性 (ADO)
         包含用来建立到数据源的连接的信息。设置和返回值设置或返回字符串值。说明使用 ConnectionString 属性，通过传递包含一系列由分号分隔的 argument = value 语句的详细连接字符串可指定数据源。ADO 支持 ConnectionString 属性的四个参数，任何其他参数将直接传递到提供者而不经过 ADO 处理。ADO 支持的参数如下：参数 说明 
Provider= 指定用来连接的提供者名称。 
File Name= 指定包含预先设置连接信息的特定提供者的文件名称（例如，持久数据源对象）。 
Remote Provider= 指定打开客户端连接时使用的提供者名称。（仅限于 Remote Data Service）。 
Remote Server= 指定打开客户端连接时使用的服务器的路径名称。（仅限于 Remote Data Service）。 
设置 ConnectionString 属性并打开 Connection 对象后，提供者可以更改属性的内容，例如通过将 ADO 定义的参数名映射到其提供者等价项来更改属性的内容。ConnectionString 属性将自动继承用于 Open 方法的 ConnectionString 参数的值，以便在 Open 方法调用期间覆盖当前的 ConnectionString 属性。由于 File Name 参数使得 ADO 加载所关联的提供者，因此无法传递 Provider 和 File Name 参数。连接关闭时 ConnectionString 属性为读/写，打开时其属性为只读。Remote Data Service 用法   在客户端 Connection 对象上使用该服务时，ConnectionString 属性只能包括 Remote Provider 和 Remote Server 参数。

Answer 3

"REG_TAB"是我的CATV.mdb数据库中的一个表，改成这样以后：
adoConnectionX.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;UserID=pljd;password=iamljd;Data Source=" & App.Path & "\CATV.mdb"
出现的错误提示是：
实时错误：XXXXXXXXXXXX:(XXXXXXXXXXX)
不能启动应用程序。工作组信息文件丢失，或是已经被其他用户以独占
方式打开。（但是我并没有打开catv.mdb啊）

Answer 4

打开数据库是要提取记录，应该告诉ado你想要提取什么条件的记录
dim sqlstr as stringsqlstr="select * from REG_TAB"adoRecordsetX.Open sqlstr, adoConnectionX

Answer 5

试试用这种方法连接
"driver={microsoft access driver (*.mdb)}uid=;pwd=;dbq=" & app.path & "\catv.mdb"另外如果程序是在根目录改为 app.path & "catv.mdb"

Answer 6

楼上的正确。我试了如下的成功：
  
cnnString = "driver={microsoft access driver (*.mdb)};uid=;pwd=000;dbq=" & App.Path & "\manager.mdb"（不加：“uid=;”也行）