dim strsql as string