VB和SQL如何连接

我用VB设计一个银行登录系统，主界面包括两个Textbox按钮，放账号和密码，用SQL建一个bank数据库里面有B1表含账号Sno.密码Sp。请问Tbox11.Tbox2如何调用Sno.Sp？如果相符合进入下一个界面。求详细代码
我现在用的是VB2005好像和6.0有些不同。

获得adodb的连接代码：
1 在桌面上新建一个文本文件
2 把扩展名 txt改为 .udl
3.双击，打开文件，显示数据库连接属性
4 选提供程序选项，选择 for SQL Server ，下一步
5. 1 选择SQL的服务器，2 看你的情况，选择一个。3. 选择一个数据库
6 .点测试连接。成功后就ok了，按确定关闭
7. 再用记事本方式打开这个文件，复制有Provider=的这行就是连接代码了

登录代码；

Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cnStr As String, sqlStr As String

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnStr = "Provider= ....." '连接代码
sqlStr = "select*from B1 where Sno='" & text1 & "'"
cn.Open cnStr
rs.Open sqlStr, cn
If Not rs.EOF Then
if Text2 = rs.Fields("Sp") then
unload me
form2.show
else
msgbox"密码错误！"
endif
else
msgbox"此用户不存在！"