输入用户名与密码验证.
Private Sub CmdOk_Click()
On Error GoTo l
Dim rs As Recordset
Set rs = New ADODB.Recordset
rs.Source = "select * from usertable"
rs.Open , cn, adOpenKeyset, adLockOptimistic
rs.Filter = "username='" & UserNameCmb & "'"
If Not rs.BOF Or Not rs.EOF Then
Usrpass = Trim(rs.Fields!userpwd)
rs.Close
Set rs = Nothing
UsrName = UserNameCmb.Text
If Usrpass = UserPassTxt.Text Then
Unload Me
' Unload frmSplash
'MDIMain.Show