vb+access,求一条sql语句

Question

定义一个变量 dim key1 as string,并赋值：key1 = Format(Now, "YYYYMMDD")
有一个表t_Folder中有一个字段名为key.
求一条语句，在key中查找与key1匹配的最大值，请各位高手帮帮忙，谢谢还有，我的语句是这样的，在Access中，可以查询出结果，但是在VB中不行，不知那里出错了myCon.Open "select max(key) from t_Folder where key like '" & key1 & "*'", myCon, adOpenDynamic, adLockReadOnly请指教，谢谢了~~~

Answer 1

"select max(key) from t_Folder where key like '" & key1 & "*'"change
"select max([key]) from t_folder where [key] like '"&key1&"%'"

Answer 2

myCon.Open "select max(key) from t_Folder where key like '%" & key1 & "%'", myCon, adOpenDynamic, adLockReadOnly