VB6.0与SQL2008实时错误424要求对象

Question

VB6.0与SQL2008实时错误424要求对象，代码如下：
Private Sub Command1_Click()
Dim sqlCon As New ADODB.Connection
sqlCon.Provider = "SQLOLEDB"
sqlCon.Open "Server=FENGHUN-PC;Database=Library;Integrated Security=SSPI;"
Dim sqlCmd As New ADODB.Command
sqlCmd.ActiveConnection = sqlCon
sqlCmd.CommandText = "select * from LendTable"
Set sqlRes = sqlCmd.Execute
Dim sqlStr As String
sqlStr = ""
If Trim(Text1.Text) <> "" Then
     sqlStr = "where ReaderTable_ID=" + Trim(Text1.Text)
End If
LibADO.RecordSource = "Select * from LendTable " & sqlStr
LibADO.RefreshEnd Sub
其中LibADO.RecordSource = "Select * from LendTable " & sqlStr被指示为错误的语句

Answer 1

修改成这个样子看看：
If Trim(Text1.Text) <> "" Then
  sqlStr = "where ReaderTable_ID='" + Trim(Text1.Text) & "'"
End If