能帮我写一段代码吗？我刚学VB，希望对我有帮助

Question

能帮我写一段代码吗？我刚学VB，希望对我有帮助 
谢谢， 
(sql数据库） 
窗体FORM1 
该窗体要求输入学生的学号和密码，验证成功后form2.show 
窗体form2 
该窗体用来显示前面FORM1登陆成功的的学生的基本资料 
模块 
放连接SQL数据库  
-----大家能帮我写下这个代码吗？ 用RS写（方便我学）。--------- 
谢谢

Answer 1

1.添加adodb.  
2. 
dim conn as new adodb.connection
dim rs as new adodb.recordset
conn.open connstring '连接字符串 在www.connectionstring.com可以找到模板
sql="select * from tb where username='AA' and password='BB'"
rs.open sql,conn,1,1if rs.recordcount>0 then 
form2.text1.text=rs.fields!Infoform2.show
else
msgbox "Wrong Data"
end if
rs.close
conn.close大概就这样了。最后啰嗦一局，这个东西csdn多了去了，麻烦先搜索一下。再发帖

Answer 2

谢谢楼上的2位,我是刚学的， 不大懂
那么模块里应该怎么写SQL数据库的连接代码呢,谢谢了
dim conn as new adodb.connection
dim rs as new adodb.recordset
conn.open connstring '连接字符串 在www.connectionstring.com可以找到模板
sql="select * from tb where username='AA' and password='BB'"
rs.open sql,conn,1,1

Answer 3

conn.open connstring Provider=SQLOLEDB;User ID=sa;PWD=;Initial Catalog=human;Data Source=."或将SQLOLEDB改为microsoft.jet.4.0