[2005] Whats Wrong with this code??

[rami_nassar]

when i excute these line of code if gives me an error message (Unclosed quotation mark after the character string ''.)????????????

Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
        Dim SQL As String = "insert into Procedures(ProcedureName) Values('" & txtProcedureName.Text & "' )'"
        Dim cmdq As New SqlClient.SqlCommand
        cmdq.Connection = conn
        cmdq.CommandType = CommandType.Text
        cmdq.CommandText = SQL
        conn.Open()
        cmdq.ExecuteNonQuery()
        conn.Close()
        MsgBox("تمت العملية بنجاح")

    End Sub