香港经典纯音乐:vb连access问题

Dim rs As New ADODB.Recordset
dim cnn As New ADODB.Connection

Private Sub Command1_Click()
Dim strsql As String
Set rs = Nothing
Set cnn = Nothing
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\用户表.mdb;Persist Security Info=False"
cnn.Open

If Text1.Text = "" Then
MsgBox "请输入用户名！", vbCritical + vbOKOnly, "提示"
Text1.SetFocus
End If
strsql = "select*from users where username='" & Trim(Text1.Text) & "'"
rs.CursorLocation = adUseClient
rs.Open strsql, cnn, adOpenStatic, adLockOptimistic
If Text2.Text = rs.Fields("password") Then
MDIForm1.Show
Unload Me
Else
MsgBox ("用户名或者密码不正确！"), vbCritical + vbOKOnly, "提示"
End If
End Sub

这个说起来很复杂的啊，再说怎么也不只值5分吧，呵呵
要在管理工具中设置ODBC数据源，在程序中可以利用ADO或DAO控件的dataresoure连接ACCESS数据库的单个表，再设置文本框的datafield,datesoure

set cn = server.createobject("ADODB.Connection")
cn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE= "&server.MapPath ("***.mdb")

首先建立ACCESS表里有这两个字段
2\再用ADO控件连接,里面可以不用写代码,不过写代码要好一些,你初学就不写了
3\写查询语句,
Adodc1.Recordset = "select * form 你的表 where 用户名 = '" & text2.Text & "'"
4\叛断是否是空记录,如果是,text1.setfounrs
否则有的话:
看text2.text的值是否等于adodc1.recordset("密码").value
不等于的话,text2.setfonrs
否则:form2.show