thanks for that, but I am confused and can't get it to work. Do you mean that I simply replace [tblYourTableName].[YourFieldName] for my names in the query criteria??
InStr(1,Left([tblYourTableName].[YourFieldName],1),UCase$(Left([tblYourTableName].[YourFieldName],1)),0)>0