codice:
Private Sub Command1_Click()
Dim query As String 
Dim htmltext As String 
htmltext = "<html><font size=2>PROVA</font></html>" 
    If (conn.State = adStateOpen) Then 'Esegue solo se si è connessi 
        query = "INSERT INTO ordini (html) VALUES ('" & htmltext & "')" 
        conn.Execute query 
    End If 
End Sub
risultato dopo salvataggio:

codice:
 < html > < font size = 2 > PROVA < /font > < /html >

Se inserisco tramite phpmyadmin non ci sono problemi.