Get RecordSet
sSQL = "select tovarchar(smiles) a, tmol_tani(smiles, " & ls_SimSMILES & ") b from tmols where tmol_tani(smiles, " & ls_SimSMILES & ") > " & Format$(ld_Sim) & " order by b desc"
Set rstInformix = conInformix.OpenRecordset(sSQL, dbOpenSnapshot)