Access数据库
格式为：
user    password    name    class
1        1          AAA      SYS
2        2          BBB      OPE
.        .            .        .
.        .            .        .
.        .            .        .

程序源码为：
Private conn As New ADODB.Connection
Private Sub adminlogin()
    Static j As Integer
    Dim rs As New ADODB.Recordset
    SQL = "select username,password from admin Where username='" & text1.Text & "' and password='" & text2.Text & "'"
    Set rs = conn.Execute(SQL)
    If rs.EOF And rs.BOF Then
        j = j + 1
        rs.Close
        Set rs = Nothing
        MsgBox "密码错误"
        If j > 2 Then
            MsgBox "连续错误3次！程序将退出"
            End
        End If
    Else
        rs.Close
        Set rs = Nothing
        Form2.Show
'在这里增加语句
        Unload Me
    End If

End Sub
Private Sub Form_Load()
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
End Sub

Private Sub cmd_Click()
    Call adminlogin
End Sub

Private Sub Form_Unload(Cancel As Integer)
        Set conn = Nothing
End Sub

Private Sub text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then Call adminlogin
End Sub


问题：
想在正确登录后，如用户名为1，密码为1，登录后在Form2.Label1.Caption中显示AAA，Form2.Label2.Caption中显示SYS，语句该怎么写？

多谢各位的指点，特别是xiangyue0510版主的那句“目测你VB的基础知识还是不够扎实，多做练习，不要着急做实际的项目”真正是一针见血，肺腑之言，对初学者充满了浓浓关切之意。

的确如此，近五十岁的我从来没能系统的认真的学习过编程，虽然喜欢，但也是常常会被一些简单的问题所桎梏，所幸知道了“编程论坛”，在这里各种各样的编程高手不遗余力、无私的帮助所有的初学者，我一下子就找到了“家”的感觉。

再次感谢各位。

多谢各位！