怎么进行信息比对急!急!

各位高手帮帮忙啊,我初学vb现在老师让做个小系统,我在做登陆界面时候出了问

题,不会写代码啊,我用的是access建了一个"用户信息表",两个字段:(用户名,密

码)设计了两个文本框,两个命令按钮.要求写的代码可以比对一下表中的信息,正

确则进入另一个窗体,能不能按照要求给出具体代码啊.先在这里谢谢大家了. --------------------编程问答-------------------- 小问题，
代码憋不出。坐沙发得了。 --------------------编程问答-------------------- 大哥可不可以帮帮忙啊.我急等着用那 --------------------编程问答-------------------- 晕.

无语.

推荐一个源码站,去那里有大把的管理系统,好好学习一下吧.

http://www.mndsoft.com/blog/default.asp

你这第一关都没有过,以后肯定还有更多问题,直接下载一个中意的代码改,比你自己从零写出恐怕容易得多. --------------------编程问答-------------------- 楼主，你给我200分，我给你一段完整的程序,保证完成你老师交你的任务
我的QQ:909413335 --------------------编程问答-------------------- 呵呵 --------------------编程问答-------------------- 200分啊～口水哗啦哗啦滴～ --------------------编程问答-------------------- 关注,呵呵
    Dim mrdoRS As ADODB.Recordset
    Dim mSQL As String
    Dim sBo As Boolean
    Dim sName As String
    On Error GoTo SSCommand1_Err
    sBo = False
    If Combo1.ListIndex < 0 Then Exit Sub
    If txtPassword.Text = "" Then Exit Sub
    With ADOTemp
        If .EOF And .BOF Then Exit Sub
        .MoveFirst
        .Find "id =" & Combo1.ItemData(Combo1.ListIndex)
        If .EOF = False Then
            If .Fields("word").Value <> txtPassword.Text Then
                MsgBox "无效的密码，再试一次！", 16, "登录"
                txtPassword.SetFocus
                txtPassword.SelStart = 0
                txtPassword.SelLength = Len(txtPassword.Text)
                SendKeys "{Home}+{End}"
            Else
                gsWiname = !Name
                gswxpassd = txtPassword.Text
                gsScname = !sgroup
                gsVqtqname = !id
                Ok = True
                Me.Hide
            End If
        Else
                MsgBox "无效的密码，再试一次！", 16, "登录"
                txtPassword.SetFocus
                txtPassword.SelStart = 0
                txtPassword.SelLength = Len(txtPassword.Text)
                SendKeys "{Home}+{End}"
            End If
        End With
    Exit Sub
SSCommand1_Err:
    If Err = -2147467529 Then
        MsgBox "网络服务器联接未能成功！" & Chr(13) & "请检查网络密码是否正确，或通知电脑中心！", vbExclamation
    Else
       DisplayError Err
    End If

补充：VB ,  数据库(包含打印，安装，报表)