Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open "provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\database.mdb;Jet OLEDB:Database password=;persist security info=false"
rs.Open "select * from table where usename=" & text_username.text, con, adOpenKeyset, adLockOptimistic
if rs("password")= text_password.text then
otherform.show
unload me
else
msgbox "用户名或密码错误!"
exit sub
end if
rs.close
con.close