(求助)VB 运行 事实错误91 对象变量或with块变量未设置
Private Sub cmbOK_Click()
If Trim(cmbUserName.Text) = "" Then
MsgBox "用户名不能为空!", vbOKOnly + vbExclamation, "警告!"
cmbUserName.SetFocus
Exit Sub
End If
connstring = "Provider=SQLOLEDB.1;Password=ecc;Persist Security Info=True;User ID=sa;" & "Initial Catalog=PurchaseandSale;Server=(local)"
If conn.State <> 1 Then
conn.Open (connstring)
End If
Set rs = conn.Execute("select * from users where 用户='" & Trim(cmbUserName.Text) & "'")
If rs.EOF Then
MsgBox "没有该用户!" & vbCrLf & "请重新输入!", vbOKOnly + vbExclamation, "提示"
cmbUserName.SetFocus
Exit Sub
Else
rs.MoveFirst
If rs.Fields("密码").Value = Trim(txtPWD.Text) Then
Unload Frmlogin
Load frmMain
frnMain.Show
Else
If num < 2 Then
num = num + 1
MsgBox "口令不对,请重新输入!" & vbCrLf & "您还有" & Str(3 - num) & "次机会!", vbOKOnly + vbExclamation, "提示"
txtPWD.SetFocus
Exit Sub
Else
MsgBox "对不起,您无权使用本系统!", vbOKOnly + vbExclamation, "提示"
Unload Frmlogin
Exit Sub
End If
End If
End If
conn.Close
End Sub