PrivateSubcmdOK_Click()DimstrPwdAsStringDimrsPwdAsADODB.RecordsetDimstrLoginAsString

用户名不能为空.Text) If Len (strLogin) = 0 Then MsgBox &quot.0写的.Recordset Dim strLogin As String StrLogin = Trim (txtUserName.SetFocus Exit Sub End If 以上一句话是什么意思？用VB6！！，希望高手一行一行帮我翻译下.Text) StrPwd = Trim (txtPasswordPrivate Sub cmdOK_Click () Dim strPwd As String Dim rsPwd As ADODB！在线等; txtUserName,请输入用户名&quot

把输入用户名的位置设置为检点。（把光标移动输用户名的文本框内）
Exit Sub
',通过下一句提示猜测的。)
MsgBox "用户名不能为空,请输入用户名"
'这段有点像我写的，光标移入文本框后，退出单击事件，呵呵 ;如果用户名为空.Recordset
Dim strLogin As String
'，不在执行过程中的后面语句。
End If
'如果为空，提示 "用户名不能为空,请输入用户名"
txtUserName.SetFocus
'声明变量
StrLogin = Trim (txtUserName.Text)
'把文本框的值去空后赋给strlogin
StrPwd = Trim (txtPassword.Text)
'把文本框的值去空后赋给strpwd
If Len (strLogin) = 0 Then
'进入判断strlogin是否为空，（这个可能是用户名。
Private Sub cmdOK_Click ()
'声明按钮的单击事件
Dim strPwd As String
'声明 变量
Dim rsPwd As ADODB.Recordset
'声明 变量 为ADODB

你好！ LoginSucceeded = False Me.Hide End Sub Private Sub cmdOK_Click() Dim strLogin，strPwd是自定义的变量，分别表示程序中用到的用户名和密码。txtUser 希望对你有所帮助，望采纳。