有关数据库检索:(在线请教)

Question

请帮忙一下:
功能:分类号检索
Private Sub Command1_Click()
    List1.Clear
    If Label1.Caption = Command2.Caption Then
        Adodc1.RecordSource = "select * from tsdagls where flh like ""    & '" & Trim(Text1.Text) & "'"""
        Adodc1.Refresh
        Set List1.DataSource = Adodc1
        List1.SetFocus
        Adodc1.Recordset.MoveFirst
        While Adodc1.Recordset.EOF
            List1.AddItem Adodc1.Recordset("sm") & "对应的分类号:" & Adodc1.Recordset("flh")
            Adodc1.Recordset.MoveNext
        Wend
     End If
End SubPrivate Sub Form_Load()
    Dim sStr As String
    sStr = App.Path & "\Librarys.mdb"
    If Dir(sStr) = "" Then
        MsgBox "数据库不存在!"
        End
     Else
        Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sStr
        Adodc1.CursorLocation = adUseClient
        'Adodc1.RecordSource = "select * from tsdagls"
        
     End If
End Sub

Answer 1

谢谢.刚刚通过了.
Adodc1.RecordSource = "select * from tsdagls where flh like ""    & '" & Trim(Text1.Text) & "'"""
多了""