我问一些关于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, "

我问一些关于vb代码的问题： 问一个关于VB代码的问题 关于VB的代码问题 关于VB的一些问题 一些关于VB的问题 问关于VB的问题? 关于这个VB代码的数组问题 问一个VB代码问题～～ 问一个关于VB的简单的代码 VB代码的问题