How to save when richtextbox1 typing content into my accessa database VB.NET

Actually i have two different column like Title1 and Title2 (SONGS_ETITLE and SONGS_TTITLE in Ms access database column) and i have in SONG_SONGS1 and SONG_SONGS2 which is longtext ....

1. Already i have a text in Richtextbox1 so i want edit some misspelling or correction...like Titles and Long text...
2. so i try to update this but i am unable to do.

Using con As New SqlConnection(strConnect)
con.Open()
Using com As New SqlCommand("INSERT INTO SONGS (SONG_ETITLE, SONG_TITLE) VALUES (@ETITLE, @TTITLE)", con)
com.Parameters.AddWithValue("@SONG_SONGS1", RichTextBox1.Text)
com.ExecuteNonQuery()
End Using

Hope this is coreect

Imports System.Data.OleDb

Public Class SongsList
Dim Provider As String
Dim dataFile As String
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter
Dim Sql As String
Dim Path As String
Dim connString As String
Dim con As New OleDbConnection

Dim myConnection As OleDbConnection = New OleDbConnection

Private Property cmd As OleDbCommand

Private Sub SongsList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\Praise\Praise\bin\Debug\Database.accdb"
'TODO: This line of code loads data into the 'DatabaseDataSet.SONGS' table. You can move, or remove it, as needed.

Me.SONGSTableAdapter.Fill(Me.DatabaseDataSet.SONGS)
Me.KeyPreview = True
Me.DataGridView1.Refresh()


End Sub

Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
con.Open()
Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter
da = New OleDbDataAdapter("Select * from SONGS where CODE like ?", con)
da.SelectCommand.Parameters.AddWithValue("Code", "%" & TextBox4.Text & "%")
da.Fill(dt)



DataGridView1.DataSource = dt.DefaultView

con.Close()
End Sub

Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
con.Open()
Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter
da = New OleDbDataAdapter("Select * from SONGS where SONG_ETITLE like ?", con)
da.SelectCommand.Parameters.AddWithValue("Code", "%" & TextBox5.Text & "%")
da.Fill(dt)


DataGridView1.DataSource = dt.DefaultView


con.Close()
End Sub

Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
con.Open()
Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter
da = New OleDbDataAdapter("Select * from SONGS where SONG_TTITLE like ?", con)
da.SelectCommand.Parameters.AddWithValue("Code", "%" & TextBox6.Text & "%")
da.Fill(dt)


DataGridView1.DataSource = dt.DefaultView


con.Close()
End Sub

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
SONGSBindingSource.MovePrevious()

End Sub

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
SONGSBindingSource.MoveNext()

End Sub

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
SONGSBindingSource.MoveFirst()
End Sub

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
SONGSBindingSource.MoveLast()

End Sub

Private Sub DataGridView1_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
Dim form As New SongsShow
Form.RichTextBox1.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString()
form.RichTextBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString()
form.RichTextBox1.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString()
form.RichTextBox1.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString()
form.RichTextBox2.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString()
form.RichTextBox2.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString()
form.RichTextBox2.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString()
form.RichTextBox2.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString()
form.RichTextBox3.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString()


Me.Update()
Refresh()
form.Sh

Actually this is church songs software... and Richtextbox1 will show one lanugange ie Tamil and Richtextbox2 will show one language ie English

and Especially everything it was perfect but when re-edit or update i am unable to.... and in future ill not use VS default names.. thanks

Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
pro = Provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\Praise\Praise\bin\Debug\Database.accdb"
connString = pro
myConnection.ConnectionString = connString
myConnection.Open()
command = "Update SONGS set [SONG_ETITLE]='" & TextBox2.Text & "',[SONG_TTITLE]='" & TextBox2.Text & "',[SONG_SONGS1]='" & RichTextBox1.Text & "' where [CODE]=" & TextBox1.Text & ""
Dim cmd As OleDbCommand = New OleDbCommand(command, myConnection)
MsgBox("Update Success")
Try
cmd.ExecuteNonQuery()
cmd.Dispose()
myConnection.Close()
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
RichTextBox1.Enabled = False

Catch ex As Exception
MsgBox(ex.Message)

End Try
End Sub

I have try this but no use....


Additional Error says: The connectionstring property has not been initialized