Seek方法现在很少使用，因为不太方便，需要建立索引。对于多重条件，应该使用FindFirst方法，如： 
     strCriteria = "sex = 'male' and (address = '北京' or address = '上海') and name='张三'" 
     Data1.Recordset.FindFirst strCriteria 
     If Data1.Recordset.NoMatch Then 
     MsgBox "没有找到记录" 
     Else 
     ' 找到其他记录 
     Do Until Data1.Recordset.NoMatch 
     Debug.Print Data1.Recordset("address") 
     Data1.Recordset.FindNext strCriteria 
     Loop 
     End If 
<END>    