能否给每一句做一个解释？谢谢

Question

denlu.frm(登录窗口)Dim i, l As Integer
Dim pass As StringPrivate Sub Command1_Click()
 l = Len(Trim(password.Text))
 pass = ""
 For i = 1 To l
     pass = pass + Trim(Str(Asc(Right(Left(Trim(password.Text), i), 1)) * i))
 Next i
 data1.Recordset.MoveFirst
 Do While Not data1.Recordset.EOF
    If data1.Recordset.Fields("usename")=Trim(usename.Text) And data1.Recordset.Fields("password") = pass Then
       MDImain.Show
       denlu.Hide
       Exit Do
    End If
    data1.Recordset.MoveNext
    If data1.Recordset.EOF Then MsgBox "你输入的用户名或密码错误", vbExclamation + vbOKOnly, "密码错误"
Loop
End SubPrivate Sub Command2_Click()
End
End SubPrivate Sub Form_Load()
 data1.DatabaseName = App.Path + "\database\mdb.mdb"
 data1.RecordSource = "Select * from password"
 data1.Refresh
End Sub

Answer 1

TO： sektor(普通动物)
一，我不是高手，也不是找民工，我是求助
可能我说得不是太好，让你误会了，向你道歉
二，的确我是菜鸟，不好意思了

Answer 2

呵，着实被楼主另个贴张扬的标题感染了．
楼主，你这样的问题叫人如何帮助？似乎真的有玩人的感觉．
每一句加rem?有这个必要么，如果说具体到哪一句不明白，相信帮助你的人很多．要是想从0开始学ＶＢ(绝对的假设)，这种方式效率太低了

Answer 3

错鸟，窝头请看楼主另个贴：
http://community.csdn.net/Expert/TopicView1.asp?id=4005334