rs.open"Select * from Table Where Field='"&text1.text&"'"
Dim Rs as new Ado.recordsetrs.open "Select * from TblName Where FldName='aaa'"
dim Rst as new adodb.recordset dim SQL as stringset rst=new adodb.recordset sql="select a.name form yourtable1 as a,yourtable2 as b where a.name<>'aaa' and a.id=b.id" rst.open sql,conn,1,3,adcmdtext
dim SQL as stringset rst=new adodb.recordset
sql="select a.name form yourtable1 as a,yourtable2 as b where a.name<>'aaa' and a.id=b.id"
rst.open sql,conn,1,3,adcmdtext