vb初学者：如何用vb与access配合建立登陆界面？

http://hi.baidu.com/poi123p82/blog/item/b5a24210e2a2e51ab9127b5c.html

怎么0分也提问啊

Private Sub Command1_Click()

'登录确认

Dim db As New ADODB.Connection

Dim RS As New ADODB.Recordset

      db.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\数据库名.mdb"

  db.Open

    strSQL = "select * from 登录表 where 用户名='" & Text1.Text & "'"

    RS.Open strSQL, db, 2, 2

If RS.EOF = True Then

    MsgBox "没有这个用户,请重新输入用户名!",&n