Ms Access db in vb form

See more:

VB

Dear All
Please help to insert data to my access db,i need code for insert data to msaccess db
i m developing one project in database i m using for msaccess but i am unable to insert below my code posing please help were i m doing mistake.
This is My Code

Public Class Party
    Dim cnnOLEDB As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\webapps\ArrowJet\CP.mdb")
    Dim cmdOLEDB As New OleDbCommand
    Dim cmdInsert As New OleDbCommand
    Dim cmdUpdate As New OleDbCommand
    Dim cmdDelete As New OleDbCommand

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        
        Try
            Dim InsertQuery As String

            InsertQuery = "INSERT INTO party (PartyName, PartyAccount, PayTo,PartyInfo) VALUES (@PartyName, @PartyAccount, @PayTo,@PartyInfo)"

            Dim cmd As OleDbCommand = New OleDbCommand(InsertQuery, cnnOLEDB)
            cmd.Parameters.AddWithValue("@PartyName", ComboBox1.Text)
            cmd.Parameters.AddWithValue("@PartyAccount", paTextBox2.Text)
            cmd.Parameters.AddWithValue("@PayTo", ptTextBox3.Text)
            cmd.Parameters.AddWithValue("@PartyInfo", pfTextBox4.Text)

            cnnOLEDB.Open()
            cmdOLEDB = New OleDbCommand(InsertQuery, cnnOLEDB)
            cmdOLEDB.ExecuteNonQuery()
            cnnOLEDB.Close()
        Catch ex As Exception
            MessageBox.Show("Record Added")

        End Try