vb 数据库查询问题！

数据库内容如下：
ID Names Pass Admins
1 123 456 Y
2 124 888 N
要求判断数据库Names列是否存在Text1的值 ，并且判断此行Pass值是否等于Text2！
如果两个条件都符合 那么判断Admins的值
数据库是Mdb，Office的！

数据库链接，你自己来
sql="select * from DB where Names='" & Text1.text & "' and Pass='" & Text2.text & "'" "
rs.open sql,conn,1,2
if rs.RecordCount >0 then
msgbox rs("Admins")
end if
rs.close
conn.close

private sub command1_click()   '查询 if text1.text = "" then    ‘如果文本框中内容为空，则提醒  msgbox "请输入需要查询姓名", vbinformation, "查询提醒"  else   adodc1.recordsource = "select * from 你的数据中的表名称 where 姓名='" + ucase(trim(text1.text)) + "'"   '否则根据文本框内容进行查询   adodc1.refresh   end if end sub

private sub form_load() adodc1.connectionstring = "provider=microsoft.jet.oledb.4.0;data source=你的数据库所在路径;persist security info=false" adodc1.commandtype = adcmdtext adodc1.recordsource = "select * from 你的数据库表名称" adodc1.refresh text1.text = "" set datagrid1.datasource = adodc1 end sub