急救!

Question

有一用户表单,在单击一个按钮时要打开这个表单并将从键盘上输入的数据在此表中进行查找，若找到，则成功登陆,请问:用什么命令去打开此表单并在其中进行数据字段值的查询?

Answer 1

dim conn as new adodb.connection
dim strconn as string
dim rs as new adodb.recordset
dim strsql as string
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1.mdb;User ID=admin;Password=;Jet OLEDB:Database Password="
conn.open strconn
'如果是当前库，上面这行可以不要
strsql="select * from table where fieldname ='value'"
rs.open strsql,conn,1,1
'如果是当前库可以改成以下这句
'rs.open strsql,currentproject.connection,1,1
do until rs.eof
    debug.print rs(0)
    '上面这句打印出所有记录的第一个字段
    rs.movenext
loop
RS.CLOSE