How to Insert Rows to MS Access 2003 Table in VB.net using Oledb Adapter / Command?
===

        I have created a Form for Managing Contacts such as PhoneBook so i have created nearly 12 fields in MS Access 2003 including ID as a Primary Key(Auto Number)  the prob is inserting the Data's (Eg: Textbox1.text) into the Table . Below is the Screen Shot for the Error Msg when i Clicked the Save Btn . the following is the code i have tried.


 Dim adp As OleDbDataAdapter
 Dim dt As DataTable
![enter image description here][1]
    Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
        Dim sql As String

        sql = "insert into TblContacts (Name, Company, Contact_1, Contact_2, Address, Email_1, Email_2, Web, SNS, Date_Saved, Image) values ('" & TextBox1.Text & "' ,'" & TextBox2.Text & "','" & TextBox4.Text & "','" & TextBox3.Text & "','" & TextBox8.Text & "','" & TextBox6.Text & "','" & TextBox5.Text & "','" & TextBox9.Text & "','" & TextBox7.Text & "','" & ToolStripTextBox2.Text & "','" & TextBox10.Text & "')"

        Try
            adp = New OleDbDataAdapter
            adp.InsertCommand = New OleDbCommand(sql, con)
            adp.InsertCommand.ExecuteNonQuery()


            MsgBox("Saved Successfully!")

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try
    End Sub


