谁能给出一个ADO中COMMAND参数化查询的完整的例子

Question

dim strsql as string
dim strcnn as string
dim cnn1 as adodb.connection
dim cmdchang as adodb.command
strsql="SELECT  ＊  FROM  TABLENAME  ＷＨＥＲＥ  ＮＡＭＥ＝？"
strcnn="provider=microsoft.jet.oledb.3.51;""data source=表;"
set cnn1=new adodb.connection
cnn1.open strcnn
set cmdchange=new adodb.command
set cmdchange.activeconnection=cnn1
cmdchange.commandtext=strsql
.
.
.
cnn1.execute strsql,,adexecutenorecords
.
.
cnn1.close

Answer 1

查询语句里面有个问号，怎么用实际的值来代替那个问号？