你可以根据你输入的内容去查询数据库表studeng
dim sql as string
sql="select * from student where 姓名＝'" & textbox1.text & "' and 密码＝'" & textbox2.text & "';"
dim cmd as new oledbcommand(sq,conn)
conn.open
dim dr as oledbdatareader=cmd.executereader()
if dr.read then
＇转到你要到的页面
else
＇报错
endif

将上面的ole 改为　sql