下面是一個連接 Access 數據庫的 VB 示例：

Imports System.Data.OleDb

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;"
        Dim conn As New OleDbConnection(connectionString)

        Try
            conn.Open()

            ' 連接成功后，可以執行查詢操作或其他數據庫操作

            ' 關閉連接
            conn.Close()
        Catch ex As Exception
            MessageBox.Show("連接數據庫時發生錯誤：" & ex.Message)
        End Try
    End Sub
End Class

這個示例使用了 OleDbConnection 類來連接 Access 數據庫。在連接字符串中，Provider 指定了使用的數據庫提供程序（這里是 Microsoft.ACE.OLEDB.12.0），Data Source 指定了數據庫文件的路徑。

下面是一個查詢 Access 數據庫的 VB 示例：

Imports System.Data.OleDb

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;"
        Dim conn As New OleDbConnection(connectionString)

        Try
            conn.Open()

            Dim query As String = "SELECT * FROM TableName"
            Dim cmd As New OleDbCommand(query, conn)
            Dim reader As OleDbDataReader = cmd.ExecuteReader()

            While reader.Read()
                ' 處理查詢結果
                Dim column1Value As String = reader.GetString(0)
                Dim column2Value As Integer = reader.GetInt32(1)
                '...

                ' 在這里可以將查詢結果顯示在界面上或進行其他處理
            End While

            ' 關閉連接
            reader.Close()
            conn.Close()
        Catch ex As Exception
            MessageBox.Show("查詢數據庫時發生錯誤：" & ex.Message)
        End Try
    End Sub
End Class

這個示例使用了 OleDbCommand 類執行查詢命令，并使用 OleDbDataReader 類來讀取查詢結果。在 OleDbDataReader 對象上調用 Read 方法可以逐行讀取查詢結果集中的數據。你可以根據需要使用 GetString、GetInt32 等方法獲取不同類型的字段值。