evitar caracteres al hacer saltos de linieas

[guif]

Tengo problemas al recoger unos valores de unas consultas SQL.

Si muestros los datos en un textbox los saltos de lineas (enter) me muestran esto: <br> y en el caso de los listbox me muestra dos barras como estas: ||

Que solucion tiene esto?

[A.H.H]

si el salto de linea lo haces con ----> & vbCrLf en vez de con chr$(13).........

no deberian salir los caracteres.


saludos

[guif]

lo intento hacer asi:

Código:

Do While Not rs.EOF
        list1.AddItem ("AREA INCIDENCIA: ") + (rs("AREA"))
        list1.AddItem ("PERSONA: ") + (rs("NOMBRE")) & " " & (rs("APELLIDOS"))
        list1.AddItem ("DATA: ") & (rs("F_H_ALTA")) & vbCrLf
        'list1.AddItem ("DESCRIPCIÓ: ")
        'list1.AddItem (rs("DESCRIPCION"))
       list1.AddItem ("DESCRIPCIÓ: ") + (ReemplazarSaltos(rs!descripcion))
        list1.AddItem ("________________________________") & vbCrLf
rs.MoveNext
copiame

con la funcion:

Código:

 Function ReemplazarSaltos(Text1)
ReemplazarSaltos = Replace(Replace(Text1, Chr(13), "<br>", 1, -1), Chr(10), "", 1, -1)
End Function

puede afectar la funcion copiame() que tengo??? primero lo paso a un listbox y luego a un textbox...

Código:

Private Sub copiame()
Dim i%, strText$
    For i = 0 To list1.ListCount - 1
        strText = strText & list1.List(i) & vbNewLine
    Next i
    Text1.Text = strText
End Sub

[A.H.H]

La funcion copiame() esta perfecta, creo que el problema esta en la otra funcion, en reemplazarSaltos(text1).
creo que el chr(13) y chr(10) te dejan los caracteres.
solo es un consejo, no soy ningun experto...
salu2

[guif]

por fin!!!!

he hecho esto:

list1.AddItem Replace(rs.Fields("DESCRIPCION"), "<br>", "")

Las <br> realmente eran saltos de lineas que se producian dentro de la BBDD.

gracias por vuestro tiempo!