VB图书馆管理系统代码问题
--------------------编程问答--------------------
说实话，你发的这种来历不明的代码，真不像是认真学过编程的人写的，哪怕是像我这下改一下都要靠谱不少啊：
Option Explicit
Public Function QuotedStr(ByVal sValue As String) As String
QuotedStr = "'" & Replace(sValue, "'", "''") & "'"
End Function
Private Sub Command1_Click()
'搜索管理员功能实现
If Len(Text1.Text) <> 0 Then
Adodc1.recordsourse = "select * from 管理员索引表 where 管理员用户名=" & QuotedStr(Text1.Text)
ElseIf Len(Text2.Text) <> 0 Then
Adodc1.RecordSource = "select * from 管理员索引表 where 姓名=" & QuotedStr(Text2.Text)
End Sub
--------------------编程问答--------------------
楼上正解，这种问题只要在ｄｅｂｕｇ里面把你的ｓｑｌ语句打印出来看一看就知道错在哪里了
--------------------编程问答--------------------
Adodc1.recordsourse = "select * from 管理员索引表 where 管理员用户名='"& Text1.Text &"'"
补充：VB , 基础类
