在VB（Visual Basic 6.0）中，使用ADO（ActiveX Data Objects）连接到加密的Access 2000数据库是一项常见的任务。ADO是Microsoft提供的一个数据访问接口，允许开发者通过编程方式与各种数据库进行交互，包括Access、SQL Server等。在本案例中，我们需要在VB中设置正确的连接字符串，并处理加密的数据库。
1. **ADO基本概念**
- ADO是.NET Framework的前身，属于COM组件，包含一系列的对象，如Connection、Command、Recordset等，用于执行数据库操作。
- Connection对象用于建立与数据库的连接。
- Command对象用于执行SQL命令。
- Recordset对象则代表查询结果，可以用来遍历和操作数据。
2. **连接字符串**
连接字符串是用于指定如何连接到数据库的关键信息，包括数据库位置、类型、用户名、密码等。对于Access 2000，连接字符串通常格式如下：
```vb
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Database.mdb;Jet OLEDB:Database Password=111;"
```
在这个例子中，`Provider`指定了数据提供者，`Data Source`是数据库路径，`Jet OLEDB:Database Password`则是数据库的密码。
3. **建立连接**
在VB中，首先创建一个Connection对象，然后用上面的连接字符串打开连接：
```vb
Dim conn As New ADODB.Connection
conn.Open connStr
```
这将打开到加密数据库的连接，其中密码为"111"。
4. **执行SQL命令**
使用Command对象执行SQL命令，例如查询或更新数据：
```vb
Dim cmd As New ADODB.Command
Set cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * FROM TableName"
Set rs = cmd.Execute ' rs 是 Recordset 对象
```
`TableName`应替换为实际表名。
5. **处理Recordset**
`rs`对象可以用来遍历查询结果，读取或修改数据：
```vb
Do Until rs.EOF
' 访问字段值，如 rs("FieldName")
Debug.Print rs("FieldName").Value
rs.MoveNext
Loop
```
6. **关闭连接**
操作完成后，记得关闭Recordset和Connection以释放资源：
```vb
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
```
7. **错误处理**
在实际编程中，应添加适当的错误处理代码，例如：
```vb
On Error Resume Next
' ... 执行数据库操作 ...
If Err.Number <> 0 Then
MsgBox "Error: " & Err.Description
Err.Clear
End If
On Error GoTo 0
```
以上就是使用VB 6.0和ADO连接加密的Access 2000数据库的基本步骤和知识点。在实际项目中，你可能还需要处理更复杂的操作，如事务管理、参数化查询等。了解这些基础，将有助于你构建高效且安全的数据库应用程序。
