dim rst as dao.recordset
set rst = CurrentDb.OpenRecordset("SELECT field1 FROM ....")
if rst.fields("field1").type = dbSingle then
'do something
end if
dim rst as dao.recordset
dim fld as dao.field
set rst = CurrentDb.OpenRecordset("SELECT idField, cstr(idField) As strIdField FROM ....")
for each fld in rst.fields
debug.print fld.name, fld.type, typename(fld.value)
next fld
Why can't this item have a hidden column that stores the data type for the selected field? Then construct the SQL with the delimiters required for that type. Plausible?Then a list box below list all the fields in that table or query.