在线等待,急救!!!!!!

[15962]

(1)If Adodc1.Recordset.Fields(Combo3.Text) & Combo4.Text & Text1.Text Then
s = ""
For i = 0 To Adodc1.Recordset.Fields.Count - 1
s = s & Adodc1.Recordset.Fields(i).Value & Chr(vbKeyTab)
Next
List1.AddItem s
End If
说明,在(1)中
Combo3.Text是选择的字符
Combo4.Text 是选择的比较符 (>,<,=等等)
Text1.Text 是输入的比较的数据
该如何写这个语句?


(2)
Screen.MousePointer = vbHourglass

(出问题的语句)ret = findFirst(Adodc1.Recordset, txtFind.Text)
Screen.MousePointer = vbDefault

中的findFirst的定义为

Function findFind(rs As ADODB.Recordset, ByVal criteria As String)
On Error Resume Next
rs.MoveFirst
rs.Find criteria
findFirst = Not rs.EOF And Err.Number = 0
End Function
txtFind对象中调用了
Sub MakeFindString()
txtFind = "[" & Combo3 & "]" & Combo4

Select Case Adodc1.Recordset.Fields(Combo3).Type
Case adVarChar '字符
txtFind = txtFind & "'" & Text1 & "'"
Case adDate ' 日期
txtFind = txtFind & "# " & Text1 & "# "
Case Else
txtFind = txtFind & " " & Text1
End Select
End Sub
有什么问题啊?
我用vb不久,一直用vc的,不明白的估计会很多,谢谢

[landongfang]

If Adodc1.Recordset.Filter(Combo3.Text & Combo4.Text & Text1.Text) Then
s = ""
For i = 0 To Adodc1.Recordset.Fields.Count - 1
s = s & Adodc1.Recordset.Fields(i).Value & Chr(vbKeyTab)
Next
List1.AddItem s
End If

[landongfang]

Function findFind(rs As ADODB.Recordset, ByVal criteria As String)
On Error Resume Next
rs.MoveFirst
rs.Find criteria
if Not rs.EOF And Err.Number then
findFind=0

endif
End Function

[15962]

If Adodc1.Recordset.Filter(Combo3.Text & Combo4.Text & Text1.Text)
还是有问题,说类型不匹配
Function findFind(rs As ADODB.Recordset, ByVal criteria As String)应该为
Function findFirst(rs As ADODB.Recordset, ByVal criteria As String)