Set rs = New ADODB.Recordset
str1 = "select * from YHMM where 客戶名 ='" & Trim(TextBox1.Text) & "'"
str2 = "select * from YHMM where 金額 ='" & Trim(TextBox2.Text) & "'"
rs.Open str1
If rs.EOF = True Then
.....
end if
rs.Open str2
If rs.EOF = True Then
....
end if
紅色字報錯
當rs打開後如何正確的查第二個條件

要么关掉当前记录集，要么重建一个记录集

沒有辦法在當前記錄集中操作多個條件嗎？

当然有，但是不是你那样的，要用RS.FILTER

具體,教我一下

dim cn as adodb.connection
...
set rs = cn.execute(...) 'sql