dim strsql as string(声明strsql为字符串类型)
dim strTableName as string(声明strTableName为字符串类型)
strTableName="mmsch"(把"mmsch"双引号里面的该字符串赋给strTableName)
strsql="select * from boke where " & strTableName(查询数据库表boke的数据跟strTableName合并的值赋给strsql)
dim rs as new adodb.recordset(声明数据源记录集)
rs.open strsql,currentproject.connection,1,1 (打开数据库连接)
定义一个SQL查询语句,然后查询数据库
但是貌似SQL语句有些问题
"select * from boke where mmsch"应该会SQL错误,正确语法where后面应该跟一个条件,比如user='zhang3'