dim sqlstr as string
.
.
.
dim cmd as new adodb.command
dim rs as new adodb.recordsetsqlstr="select * from tablename where NO='' and Class=''"
cmd.commandtype=adcmdtext
cmd.commandtext=sqlstrset rs=cmd.execute
.
.
.
dim cmd as new adodb.command
dim rs as new adodb.recordsetsqlstr="select * from tablename where NO='' and Class=''"
cmd.commandtype=adcmdtext
cmd.commandtext=sqlstrset rs=cmd.execute
dim cn as new adodb.command
dim rs as new adodb.recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\*.mdb ;Persist Security Info=False"
cn.Open
rs.Open "select * from tablename where no=''and class=''", cn, 1, 3
莫名其妙