谁能帮我写一段VB登录程序

来源：百度知道 编辑：UC知道 时间：2024/05/14 15:51:07
搞简单点，我搞了好多都不行，运行不起来。郁闷死了。主要是运行起来就行。

Private Sub cmdOK_Click()
Dim strIsNull, strUserNO As String
adoRs.Requery
If Len(Trim(txtUser.Text)) > 4 Then
txtUser.Text = Trim(txtUser.Text) & "_"
strUserNO = Left(Trim(txtUser.Text), InStr(1, Trim(txtUser.Text), "_") - 1)
txtUser.Text = Left(txtUser.Text, Len(Trim(txtUser.Text)) - 1)
Else
strUserNO = Trim(txtUser.Text)
End If
Do While Not adoRs.EOF
If strUserNO = adoRs.Fields("UserCode") Then
If IsNull(adoRs.Fields("PassWord")) Then
strIsNull = ""
Else
strIsNull = adoRs.Fields("PassWord")
End If
If Trim(txtPassWord.Text) = strIsNull Then
strLoginUser = adoRs.Fields("UserName")
Unload Me
frmMain.Show