Public Sub Multi_Find(ByRef oRs As ADODB.Recordset, sCriteria As String)
 Dim clone_rs As ADODB.Recordset
 Set clone_rs = oRs.Clone

      clone_rs.Filter = sCriteria
      If clone_rs.EOF Or clone_rs.BOF Then
       oRs.MoveLast
       oRs.MoveNext
      Else
       oRs.Bookmark = clone_rs.Bookmark
      End If

      clone_rs.Close
      Set clone_rs = Nothing

 End Sub