vb保存数据到access数据库代码

Imports System.Data.OleDb

Module Module1
    Sub Main()
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb"
        Dim connection As New OleDbConnection(connectionString)
        Dim command As New OleDbCommand()

        Try
            connection.Open()
            command.Connection = connection
            command.CommandText = "INSERT INTO TableName (Column1, Column2) VALUES (?, ?)"
            command.Parameters.AddWithValue("@Column1", "Value1")
            command.Parameters.AddWithValue("@Column2", "Value2")

            Dim rowsAffected As Integer = command.ExecuteNonQuery()
            Console.WriteLine("Rows affected: " & rowsAffected)
        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)
        Finally
            connection.Close()
        End Try
    End Sub
End Module