一个关于vb的小程序

来源：百度知道 编辑：UC知道 时间：2024/05/17 00:24:27
我这有一个登陆的小程序，是连接ACCESS2003的。帮我找找是哪错了，谢谢！它老是提示查询表达式不对。我也引用了。
Private Sub Command1_Click()
Dim SqlStr As String
Dim Rs_login As New ADODB.Recordset
Dim cnt As Integer
If Trim(TxtUser.Text) = "" Then
MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
TxtUser.SetFocus
Else
SqlStr = "select * from Administor where AdminName ＝'" & TxtUser.Text & "'"

提示这里有错误：Rs_login.Open SqlStr, DBCn, adOpenKeyset, adLockOptimistic

If Rs_login.EOF = True Then
MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
TxtUser.SetFocus
Else
If Trim(Rs_login.Fields(1)) = Trim(TxtPwd.Text) Then
Rs_login.Close
Unload Me
MDIFrm.Show

Else
MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
TxtPwd.SetFocus
End If
End If<

这是我做的登录..我连接的是accessXP的 你看看..(记得引用)

Option Explicit
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim constr As String
Dim sql$
Public Sub openconn()
constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\book.mdb"
conn.Open constr
End Sub
Public Sub closeconn()
conn.Close
End Sub
Private Sub Command1_Click()
Dim flag$, psw$, realname$
Dim inputok As Boolean
inputok = True
If Text1.Text = "" Then
MsgBox "请输入用户名!", vbOKOnly, "提示"
inputok = False
Text1.SetFocus
Else
If Text2.Text = "" Then
MsgBox "请输入密码!", vbOKOnly, "提示"
inputok = False
Text2.SetFocus
End If
End If
If Not inputok Then
Exit Sub
End If
Call openconn
rs.Open "select * from admin where aid='" & Text1.Text & "