要向Access數據庫添加記錄，首先要確保已經連接到數據庫。使用ADO.NET庫提供的OleDbConnection對象創建連接，并打開連接。

然后，創建一個INSERT INTO語句，用于向表中插入新記錄。指定表名和要插入的字段，以及對應的值。

最后，使用OleDbCommand對象執行INSERT語句，并關閉連接。

下面是一個示例代碼：

Imports System.Data.OleDb

Public Sub AddRecordToAccessDatabase()
    ' 連接字符串
    Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb"

    ' 創建連接對象
    Using connection As New OleDbConnection(connectionString)
        ' 打開連接
        connection.Open()

        ' 創建INSERT語句
        Dim insertQuery As String = "INSERT INTO TableName (Field1, Field2) VALUES (@Value1, @Value2)"

        ' 創建命令對象
        Using command As New OleDbCommand(insertQuery, connection)
            ' 設置參數值
            command.Parameters.AddWithValue("@Value1", "Value1")
            command.Parameters.AddWithValue("@Value2", "Value2")

            ' 執行INSERT語句
            command.ExecuteNonQuery()
        End Using

        ' 關閉連接
        connection.Close()
    End Using
End Sub

在這個示例中，將"TableName"替換為要插入記錄的表名，“Field1"和"Field2"替換為表中對應的字段，”@Value1"和"@Value2"是參數名，可以根據需要自定義參數名和值。

將代碼中的連接字符串替換為實際的數據庫路徑和名稱。

確保在代碼中引用了System.Data.OleDb命名空間，以便使用OleDbConnection和OleDbCommand類。