如何在VBA中将用户输入的信息录入Access数据库

Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb"

Dim sql As String
sql = "INSERT INTO TableName (Field1, Field2, Field3) VALUES ('" & Value1 & "', '" & Value2 & "', '" & Value3 & "')"
conn.Execute sql

conn.Close
Set conn = Nothing

Sub InsertDataIntoAccessDB()
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb"
    
    Dim sql As String
    sql = "INSERT INTO TableName (Field1, Field2, Field3) VALUES ('" & Value1 & "', '" & Value2 & "', '" & Value3 & "')"
    conn.Execute sql
    
    conn.Close
    Set conn = Nothing
End Sub