vb27

Option Explicit

Const mxlogintimes As Integer = 3
Private Sub cmdlogin_Click()
Dim cn As Connection
Dim rs As Recordset
Set cn = New Connection
Set rs = New Recordset
cn.ConnectionString = "provider=microsoft.jet OLEDB.3.51;data source=c:\users\jf\desktop\textexample.mdb"
cn.Open
rs.ActiveConnection = cn
Dim strsql As String
strsql = "select userpassword from userinformation where UserID='" & Me.txtUserID & "'"
rs.Open (strsql)
If rs.EOF Then
MsgBox "用户名不存在", vbCritical, "denglu"
Else
If rs.Fields("userpaddword").Value <> Me.txtuserpassword Then
MsgBox "mimacuo"
Else
MsgBox "success"
Unload Me
Form2.Show
End If
End If
cn.Close
Set cn = Nothing
Set rs = Nothing
ppp:





End Sub