Как сохранить, когда richtextbox1 вводит контент в мою базу данных accessa VB.NET

---

ПРИВЕТ,

я успешно подключил базу данных ms access она работает нормально но

1. когда edit & save что-то в richtextbox1 это говорит обновление сделано, но когда я иду в базу данных Ms access, которая не сохраняется (то, что я редактирую или набираю)

Что я уже пробовал:

Provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
        dataFile = "F:\Praise\Praise\bin\Debug\Database.accdb"
        connString = Provider & dataFile
        myConnection.ConnectionString = connString
        myConnection.Open()
        Dim str As String
        str = "Update [SONGS] set [SONG_ETITLE] = '" & TextBox2.Text & "',[SONG_TTITLE] = '" & TextBox3.Text & "',[SONG_SONGS1] ='" & RichTextBox1.Text & "',[SONG_SONGL2]='" & RichTextBox1.Text & "' Where [CODE]=" & TextBox1.Text & ""
        Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)


        Try

            cmd.ExecuteNonQuery()
            cmd.Dispose()
            myConnection.Close()
            MessageBox.Show("Update Done")
            TextBox1.Enabled = False
            TextBox2.Enabled = False
            TextBox3.Enabled = False
            RichTextBox1.Enabled = False

        Catch ex As Exception


        End Try
    End Sub

---