Cesko a parte... :rotfl:
in g2 il codice funziona perfettamente, comunque inserisco il codice così ci dai un'occhiata.
Dim iCap As Integer
iCap = ComboBox2.Index + 1
sql = "select * from libri where libro = '" & sAbb & "' and capitolo = '" & iCap & "'"
DBConnect
MyRS = MyConn.Exec(sql)
sStt = ""
iCap = 0
If MyRS.Available = True Then
For Each MyRS
If MyRS!capitolo <> iCap Then
If icap <> 0 Then
sStt = sStt & "<BR>"
Endif
sStt = sStt & "<b>[" & MyRS!libro & " " & MyRS!capitolo & "]</b><BR>"
iCap = MyRS!capitolo
Endif
sStt = sStt & "<sup>" & MyRS!versetto & "</sup>"
sStt = sStt & MyRS!testo
If Right(Trim(MyRS!testo), 1) = "." Then
sStt = sStt & "<BR>"
Else
sStt = sStt & " "
Endif
Next
TextEdit1.Text = ""
TextEdit1.Text = sStt
Endif
MyConn.close
Come dicevo lo stesso codice in g2 funziona perfettamente (grassetto, apice e a capo), in g3 inserisce i codici come testo. :'(