在VB6（Visual Basic 6.0）中使用ADO（ActiveX Data Objects）連接到Access數(shù)據(jù)庫，你需要遵循以下步驟：

1. 添加ADO控件：

在VB6中，打開你的項目。

在“工具箱”中，右擊，選擇“部件”。

在彈出的“部件”對話框中，選擇“Microsoft ActiveX Data Objects 2.8 Library”或“Microsoft ActiveX Data Objects 2.1 Library”（根據(jù)你的系統(tǒng)版本選擇合適的庫），然后點擊“確定”。

2. 創(chuàng)建連接對象：

在你的表單上，拖動一個ADOConnection控件到表單上。

雙擊該控件，打開其屬性窗口。

3. 設(shè)置連接字符串：

在屬性窗口中，找到`ConnectionString`屬性。

輸入連接字符串。對于Access數(shù)據(jù)庫，通常的連接字符串格式如下：

```vb

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:pathtoyourdatabase.accdb;

```

其中，`C:pathtoyourdatabase.accdb`是你的Access數(shù)據(jù)庫文件的路徑。

4. 打開連接：

在代碼中，使用以下代碼來打開連接：

```vb

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:pathtoyourdatabase.accdb;"

conn.Open

```

5. 使用連接：

使用連接對象執(zhí)行查詢、插入、更新或刪除操作。

6. 關(guān)閉連接：

操作完成后，不要忘記關(guān)閉連接：

```vb

conn.Close

Set conn = Nothing

```

以下是一個完整的示例代碼，演示了如何連接到Access數(shù)據(jù)庫，并執(zhí)行一個簡單的查詢：

```vb

Public Class Form1

Private Sub Command1_Click()

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim strSQL As String

' 創(chuàng)建連接對象

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

' 設(shè)置連接字符串

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:pathtoyourdatabase.accdb;"

' 打開連接

conn.Open

' 設(shè)置查詢字符串

strSQL = "SELECT FROM YourTableName"

' 執(zhí)行查詢

rs.Open strSQL, conn

' 在這里處理Recordset對象，例如：顯示數(shù)據(jù)

' 在這里可以添加代碼來顯示結(jié)果，例如使用ListBox或DataGridView控件

' 關(guān)閉連接

rs.Close

conn.Close

' 清理對象

Set rs = Nothing

Set conn = Nothing

End Sub

End Class

```

請確保將連接字符串中的`C:pathtoyourdatabase.accdb`替換為你的Access數(shù)據(jù)庫的實際路徑。