INSERT Syntax (repost)

Public Class con_info
    Dim con As New OleDb.OleDbConnection
    Dim dbProvider As String
    Dim dbSource As String

    Private Sub Bene_recordsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bene_recordsBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.Bene_recordsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Bene_dbDataSet)

    End Sub

    Private Sub con_info_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Bene_dbDataSet.bene_records' table. You can move, or remove it, as needed.
        Me.Bene_recordsTableAdapter.Fill(Me.Bene_dbDataSet.bene_records)

        con = New OleDb.OleDbConnection
        dbProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
        dbSource = "Data Source = C:\Users\RedemptorisMater\Desktop\S..\Kenton\B...\bene_db.mdb"

        con.ConnectionString = dbProvider & dbSource

        btnSave.Enabled = True
        btnClose.Enabled = True

        F_nameTextBox.Clear()
        M_nameTextBox.Clear()
        L_nameTextBox.Clear()

        AddTextBox.Clear()
        Home_numTextBox.Clear()
        Cell_numTextBox.Clear()

    End Sub
    Private Sub RefreshData()

        If Not con.State = ConnectionState.Open Then
            con.Open()
        End If

        Dim da As OleDb.OleDbDataAdapter
        Dim Sql As String

        Sql = "SELECT * FROM bene_records"
        da = New OleDb.OleDbDataAdapter(Sql, con)

        Dim dt As New DataTable
        da.Fill(dt)

        con.Close()

    End Sub
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim cmd As New OleDb.OleDbCommand
        Dim inc As Integer
        Dim ds As New DataSet


        If Not con.State = ConnectionState.Open Then
            con.Open()

        End If
        cmd.Connection = con
        cmd.CommandText = "INSERT INTO bene_records(f_name, m_name, l_name, b_date, add, home_num, cell_num)VALUES(@F_nameTextBox, @M_nameTextBox, @L_nameTextBox, @B_dateDateTimePicker, @AddTextBox, @Home_numTextBox, @Cell_numTextBox)"
        cmd.Parameters.AddWithValue("@F_nameTextBox", F_nameTextBox.Text)
        cmd.Parameters.AddWithValue("@M_nameTextBox", M_nameTextBox.Text)
        cmd.Parameters.AddWithValue("@L_nameTextBox", L_nameTextBox.Text)
        cmd.Parameters.AddWithValue("@B_dateDateTimePicker", B_dateDateTimePicker)
        cmd.Parameters.AddWithValue("@AddTextBox", AddTextBox.Text)
        cmd.Parameters.AddWithValue("@Home_numTextBox", Home_numTextBox.Text)
        cmd.Parameters.AddWithValue("@Cell_numTextBox", Cell_numTextBox.Text)
        cmd.ExecuteNonQuery()

        RefreshData()

        con.Close()

    End Sub
End Class