Inserting info to Access Database using textbox

Hi guys,

I am having some issues to enter some code to the database using text in a textbox.
I am using VS Studio 2010 Ultimate, MS Access database .mdb

This is what I am using

Private Sub btnData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnData.Click
        Dim con As OleDb.OleDbConnection
        Dim insert As String
        Dim ds As New DataSet
        Dim da As OleDb.OleDbDataAdapter
       
 
Try
   
            Dim myConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
            & "Data Source=C:\Users\Pitt\Documents\trainingbegin11.mdb;"
            '"Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source = C:\Users\Edward\Desktop\db1.mdb;"
 
            con = New OleDb.OleDbConnection(myConnectionString)
            con.Open()
            insert = "INSERT INTO Customerz (CustomerID, CompanyName,City) VALUES (@value1, @value2, @value3) "
            da = New OleDb.OleDbDataAdapter(insert, con)
            Dim myOleDbCommand As New OleDb.OleDbCommand(insert, con)
            myOleDbCommand.Parameters.Add(myOleDbCommand.CreateParameter).ParameterName = "@value1"
            myOleDbCommand.Parameters.Add(myOleDbCommand.CreateParameter).ParameterName = "@value2"
            myOleDbCommand.Parameters.Add(myOleDbCommand.CreateParameter).ParameterName = "@value3"
            myOleDbCommand.Parameters("@value1").Value = TextBox1.Text
            myOleDbCommand.Parameters("@value2").Value = TextBox2.Text
            myOleDbCommand.Parameters("@value3").Value = TextBox3.Text
            MessageBox.Show("the database is now open")
 
            myOleDbCommand = con.CreateCommand
            myOleDbCommand.CommandType = CommandType.Text
            myOleDbCommand.CommandText = insert
            myOleDbCommand.ExecuteNonQuery()
            con.Close()
 
        Catch ex As Exception
            Trace.WriteLine(ex.ToString)
        End Try
    End Sub

What I have tried
1: Declare Variables Value and to add them in the query
'Dim value1, value2, value3 As String
'value1 = TextBox1.Text
'value3 = TextBox3.Text
'value2 = TextBox2.Text
Sqlstring
insert = "INSERT INTO Customerz (CustomerID, CompanyName,City) VALUES (value1, value2, value3) "

2. Using Parameters style1
myOleDbCommand.Parameters.Add(myOleDbCommand.CreateParameter).ParameterName = "@value1"
yOleDbCommand.Parameters("@value1").Value = TextBox1.Text

SQLstring insert = "INSERT INTO Customerz (CustomerID, CompanyName,City) VALUES (@value1, @value2, @value3) "

3. Using Parameters style 2
'myOleDbCommand.CreateParameter.ParameterName = "@value1"
'myOleDbCommand.Parameters.AddWithValue("@value1", TextBox1.Text)

SQLstring insert = "INSERT INTO Customerz (CustomerID, CompanyName,City) VALUES (@value1, @value2, @value3) "

If I put hardcoded info in the query it does update the table
insert = "INSERT INTO Customerz (CustomerID, CompanyName,City) VALUES ('12345', 'Dell Inc' , 'Las Vegas') "