データベースからデータを取得する場合、戻り/改行の置換方法があります.

    Public Shared Function delEnterCharForPrint2(ByVal 
    strValue As String) As String
        Dim strReturn As String = strValue
        ' （ ， ）
        strReturn = strReturn.Replace(Chr(39).ToString, "'+ String.fromCharCode(39) +'")
        ' 
        strReturn = strReturn.Replace(Chr(10).ToString, "'+ String.fromCharCode(10) +'")
        strReturn = strReturn.Replace(Chr(13).ToString, "'+ String.fromCharCode(13) +'")
        strReturn = strReturn.Replace(Chr(92).ToString, "'+ String.fromCharCode(92) +'")
        Return strReturn
    End Function