I use an ADO recordset:

Code:
Set myRst = conn.Execute ("Select * From NOTES Where noteId = 1")

If Not myRst.Eof Then

    richtextNote.text = "" & myRst!NOTE

End If