dim sql as string
Set adoconn = New ADODB.Connection
set rs=new adodb.connection
adoconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\exam.mdb"
dql="select name ,password from ***"
rs.open sql,cnn,,,
if rs.eof and rs.bof then
msgbox "记录为空"____用户不存在了
end if