Save RichTextBox contents to database

In vb6, I could do this. But now in .net, it is not working...

I have a richtextbox on my form and when I hit the submit button, it should save the contents of the richtextbox to my sql database as rtf code. I am using a stored procedure in sql to insert a new record. Here is the code I am using.

VB Code:

adData.SelectCommand = New OleDbCommand
 
            With adData.SelectCommand
                .Connection = cnData
                .CommandText = "insert_TestItem @AccNum = '" & NewAccNum & "', " & _
                  "@Outline = '" & txtOutline.Text & "', " & _
                  "@Difficulty = '" & cboLevel.Text & "', " & _
                  "@Stem = '" & Replace(rtbStem.Rtf, "'", "''") & "', " & _
                  "@OptA = '" & Replace(rtbOptA.Rtf, "'", "''") & "', " & _
                  "@OptB = '" & Replace(rtbOptB.Rtf, "'", "''") & "', " & _
                  "@OptC = '" & Replace(rtbOptC.Rtf, "'", "''") & "', " & _
                  "@OptD = '" & Replace(rtbOptD.Rtf, "'", "''") & "', " & _
                  "@Key = '" & txtKey.Text & "', " & _
                  "@CaseAccNum = '" & "???" & "', " & _
                  "@RefAccNum = '" & txtReference.Text & "', " & _
                  "@RefPage = '" & txtRefPage.Text & "', " & _
                  "@AuthorID = '" & cboAuthor.Text & "', " & _
                  "@EducatorID = '" & cboEducator.Text & "', " & _
                  "@Status = '" & cboStatus.Text & "', " & _
                  "@EntryDate = '" & txtEntryDate.Text & "', " & _
                  "@EditDate = '" & CStr(Today) & "', " & _
                  "@LastUsed = ''"
                .CommandType = CommandType.Text
                .ExecuteNonQuery()
            End With

What happens, is when the commandtext is created it for some reason dies and stops adding to the commandtext string after the first richtextbox contents are added to it. I don't understand what the problem would be.

Let me know if this makes any sense...

Thanks