Question

我问一些关于vb代码的问题：

登录代码：
Private Sub Form_Load()

Dim connectionstring As String

connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\图书管理系统\图书管理系统\database\book.mdb;Persist Security Info=False"

conn.Open connectionstring

cnt = 0

End Sub

Private Sub 确定_Click()

Dim sql As String

Dim rs_login As New ADODB.Recordset

If Trim(txtuser.Text) = "" Then ' 判断输入的用户名是否为空

MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""

txtuser.SetFocus

Else

sql = "select * from 系统管理 where 用户名='" & txtuser.Text & "'"

《rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic》

If rs_login.EOF = True Then

MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""

txtuser.SetFocus

Else ' 检验密码是否正确

If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then

userID = txtuser.Text

userpwd = rs_login.Fields(2)

rs_login.Close

Unload Me

frmmain.Show

Else

MsgBox "密码不正确", vbOKOnly + vbExclamation, ""

txtpwd.SetFocus

End If

End If

End If

' 只能输入3次

cnt = cnt + 1

If cnt = 3 Then

Unload Me

End If

Exit Sub

End Sub
就是打《》的地方运行老出错，系统提示：
“实时错误‘-2147217904(80040e10)':至少一个参数没有被指定值。“

请懂的人帮忙一下那个地方该怎么改啊？
《》是我自己在提问题时为了使大家能看的,在代码中我可没用《》,我知道那不是可识别的标识符.我当然要运行,可出现错误!
“实时错误‘-2147217904(80040e10)':至少一个参数没有被指定值。“

Answer 1

《》不是VB可识别的标识符，不能出现在运行的语句中。

如果你希望运行《》中的语句，将《》删除即可；
如果你不希望运行《》中的语句，在不运行语句前加注释符，一个英文的单引号

Answer 2

daw