Free Programming Tutorials & Source Code

Here is a simple code to insert a new record into a MS Access database using the OleDbCommand Object in VB.NET.

    Public Sub InserReocrd()
        Dim cmd As New OleDb.OleDbCommand
        Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Power\Desktop\db.mdb"
        Dim conn As New OleDb.OleDbConnection(strconn)
        ' add parameters to cmd
        cmd.Parameters.AddWithValue("@Name", "Feras")
        cmd.Parameters.AddWithValue("@Position", "Programmer")
        cmd.Parameters.AddWithValue("@Website", "ScriptsLibrary.net")
        cmd.Parameters.AddWithValue("@Status", 1)

        cmd.CommandText = "Insert into Positions Values(@Name,@Position,@Website,@Status)"
        cmd.Connection = conn
        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()

    End Sub

That's it!