我在做用户登录的时候,做了4个textbox,一个是填用户名(txtusername),一个是填密码的(txtpassword),还有两个是用DataEnvironment1中的用户名和密码字段托进去的,这个窗体确定按钮的代码如下:

Private Sub cmdOK_Click()
    '检查正确的密码
    If txtUserName = txtid And txtPassword = txtpwd Then
        '将代码放在这里传递
        '成功到 calling 函数
        '设置全局变量时最容易的
        LoginSucceeded = True
        Me.Hide
        Form1.Show
    Else
        MsgBox "无效的密码，请重试!", , "登录"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub


我这样只能用SQL数据库中的第一条记录的用户名和密码登录,别的都不行!怎么才能动态地验证用户名和密码?谢谢了!

把输入的用户名与你ＳＱＬ数据库中的用户名对比一下，如果不存在就出现相应提示，然后重新输入；如果存在就比较一下相应的密码，如果不对，出现相应提示，然后重新输入，如果正确就进入系统．

[[italic] 本帖最后由 dawn4640576 于 2008-1-6 15:57 编辑 [/italic]]

恭喜你啊，发了这么多次终于发成功了

Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
Dim cmd As New

If Text1.Text = "" Then
MsgBox "用户名不能为空!"
Text1.SetFocus
Exit Sub
Else
 Call ConToSQLDB
 cmd.ActiveConnection = sqlcon
  = "select * from yhxx where 用户名='" & Text1.Text & "'"
 Set rs = cmd.Execute
    If rs.EOF Then
      MsgBox "用户不存在!"
      rs.Close
      sqlcon.Close
      Text1.SetFocus
      Exit Sub
    ElseIf rs!密码 <> Text2.Text Then
      MsgBox "密码不正确!"
      rs.Close
      sqlcon.Close
      Text2.SetFocus
      Exit Sub
    Else
       caozuoyuan = Text1.Text
       rs.Close
       Set rs = Nothing
       sqlcon.Close
       Unload Me
       Form1.Show
      
    End If
End If
End Sub
'================================================================
' 下面这个新建一个模块放在里．我喜欢这样，什么时候调用都行．
Function ConToSQLDB()
 '*******************************
 '打开与 SQL Server 数据库的连接

 '*******************************
   sqlcon.Provider = "sqloledb"
   sqlcon.Properties("Data Source").Value = "ADMIN"         '//  ADMIN为SQL Server 服务器名
  sqlcon.Properties("Initial Catalog").Value = "tempdata"         '//tempdata 为已创建数据库名
  sqlcon.Properties("Integrated Security").Value = "SSPI"
   sqlcon.Properties("persist security info").Value = "False"
   sqlcon.Properties("user id").Value = "sa"
   sqlcon.Properties("password").Value = "sa"
   sqlcon.Open
End Function

谢谢你了!说实话,你写的我看不懂,不过也够捉摸的了!