Public OK As Boolean
Dim rs As Recordset
Dim sql As String
Dim msgtxt As String
Private Sub cmdOk_Click()
    UserName = ""
    If Trim(txtUserName.Text = "") Then
        MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
        txtUserName.SetFocus
 Else
         sql = "select * from userpwd where U_name = " & "'" & txtUserName.Text & "'"
         Set rs = ExecuteSQL(sql, msgtxt)
        If rs.EOF = True Then
            MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
            txtUserName.SetFocus
            rs.Open sqlstr, Conn, adOpenStatic, adLockReadOnly
        Else
            If Trim(rs.Fields(1)) = Trim(txtPassword.Text) Then
                OK = True
                UserName = Trim(txtUserName.Text)
                UserPass = Trim(txtPassword.Text)
                rs.Close
                Me.Hide
            
            Else
                MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
                txtPassword.SetFocus
                txtPassword.Text = ""
            End If
        End If
    End If
End Sub
Private Sub cmdCancel_Click()
    OK = False
    Me.Hide
    End
End Sub
Private Sub Form_Activate()
    txtUserName.SetFocus
End Sub

ExecuteSQL?

ExecuteSQL? 是什么意思？

我是用vb连接sql server数据库的一个程序，登录用户帐号和密码的一段

知道
但ExecuteSQL?