新人求解答！用户类型未定义

[moranhczhq]

我用VB做登陆界面当下来的代码，有一段是这样的 但红色字体部分运行起来说是用户类型未定义，我没学过VB，也不大懂，求高手指点，我只知道这段后面的是说超过三次输入错误就关闭，前面的我也不明白，能给解释解释吗？
Dim strSQL As String
strSQL = "select * from staff where sno='" & username & "' and password='" & userpassword & "'"

Dim str As New ADODB.Recordset

Set str = New ADODB.Recordset

str.CursorLocation = adUseClient
str.Open strSQL, conn, adOpenStatic, adLockReadOnly

With str
If .State = adStateOpen Then .Close
.Open strSQL
If .EOF Then
try_times = try_times + 1
If try_times = 3 Then
MsgBox "您已经三次尝试进入本系统，均不成功，系统将会自动关闭", vbOKOnly + vbCritical, "警告"
Unload Me
Else
MsgBox "对不起，用户名不存在或密码不正确！", vbOKOnly + vbQuestion, "警告"
user.SetFocus
user.Text = ""
password.Text = ""
End If
Else
Unload Form1
frm_main.Show

End If
End With