Hi CJ,
I have copied and pasted your function which I named as basListRecords but when I call it, it just returns an error. I have changed the:
Set Res=Mydb.OpenRecordset("SELECT " & FName & " FROM " & TName & "WHERE FName is Not Null")
To
Set Rst=Mydb.OpenRecordset("SELECT " & FName & " FROM...