Exibir código-fonte para ASP

=RecordSets=
==Alterando e retornando dados==

<p><font color="#000000" size="2" face="Verdana">O objeto
Recordset esta presente tanto na DAO como na ADO. Lembre-se que
um Recordset representa um conjunto de registros de uma <strong>tabela</strong>
ou o conjunto de registros resultante de uma consulta <strong>SQL</strong>.</font></p>

<p><font color="#000000" size="2" face="Verdana">O objeto
Recordset contém a coleção <strong>Fields</strong> que contém
o objeto <strong>Field</strong> que representa uma coluna de
dados de um Recordset.</font></p>

<p><font size="2" face="Verdana">Usando a ADO podemos abrir um
Recordset das seguintes formas: </font></p>

<ol>
    <li><font size="2" face="Verdana">Usando o método <strong>Execute</strong>
        do objeto <strong>Connection</strong>. </font></li>
    <li><font size="2" face="Verdana">Usando o método <strong>Open</strong>
        do objeto <strong>Recordset</strong>.</font></li>
    <li><font size="2" face="Verdana">Usando o método <strong>Execute</strong>
        do objeto <strong>Command</strong>.</font></li>
</ol>

<p><font size="2" face="Verdana">Não podemos abrir um objeto
Recordset da ADO diretamente de um objeto <strong>Table ou
Procedure ou View.</strong></font></p>

<p><font size="2" face="Verdana">Os Recordsets abertos via
método <strong>Execute</strong> são sempre <strong>forward-only
e somente leitura.</strong> Se você precisar criar recordsets
atualizáveis deve usar o método OPEN do objeto Recordset da
ADO. A sintaxe é a seguinte:</font></p>

<p><font size="3" face="Verdana"><i>recordset</i><b>.Open</b> <b><i>Source</i></b><b>,</b>
<b><i>ActiveConnection</i></b><b>,</b> <b><i>CursorType</i></b><b>,</b>
<b><i>LockType</i></b><b>,</b> <b><i>Options</i></b> </font></p>

<p><font size="2" face="Verdana"><b><i>Source</i></b> - É
Opcional e indica o um comando para o nome da variável objeto,
uma instrução SQL , o nome de uma tabela ou uma stored
procedure</font></p>

<p><font size="2" face="Verdana"><b><i>ActiveConnection</i></b> -
É Opcional e indica um nome da variável objeto Connection , ou
uma string contendo parâmetros para a ConnectionString.</font></p>

<p><font size="2" face="Verdana"><b><i>CursorType</i></b><i> </i>-
É Opcional. Determina o tipo de cursor que o provedor irá usar
quando abrir o Recordset. Pode ser dos seguintes tipos:</font></p>

<table border="0" bgcolor="#C0C0C0">
    <tr>
        <td><font size="2" face="Verdana"><b>adOpenForwardOnly</b></font></td>
        <td><font size="2" face="Verdana">(Padrão) Abre um
        cursor do tipo forward-only.</font></td>
    </tr>
    <tr>
        <td><font size="2" face="Verdana"><b>adOpenKeyset</b></font></td>
        <td><font size="2" face="Verdana">Abre um cursor do tipo <strong>keyset</strong>.
        (Não permite visualizar registros excluidos por outro
        usuário)</font></td>
    </tr>
    <tr>
        <td><font size="2" face="Verdana"><b>adOpenDynamic</b></font></td>
        <td><font size="2" face="Verdana">Abre um cursor do tipo <strong>dynamic</strong>.(Exclusão,Inclusão
        e alterações feitas são visíveis)</font></td>
    </tr>
    <tr>
        <td><font size="2" face="Verdana"><b>adOpenStatic</b></font></td>
        <td><font size="2" face="Verdana">Abre um cursor do tipo <strong>static</strong>.(Cópia
        estática de um conjunto de registros)</font></td>
    </tr>
</table>

<p><font size="2" face="Verdana">Os parâmetros <em><strong>CursorType,
LockType e Options</strong></em> do método <strong>Open</strong>
determinam o tipo de Recordset que é retornado. </font></p>

<p><font size="2" face="Verdana">Vejamos na tabela abaixo como os
parâmetros do método <strong>OPEN </strong>do objeto Recordset
podem ser <em>mapeados</em> para as propriedades da ADO.</font></p>

<table border="1" cellpadding="6" cellspacing="1" width="743"
bgcolor="#00FFFF">
    <tr>
        <td valign="top" width="45%" height="30"><font
        color="#000080" size="1" face="Verdana"><b>Tipo de
        Recordset DAO</b></font></td>
        <td valign="top" width="55%" height="30"><font
        color="#000080" size="1" face="Verdana"><b>Propriedades
        ou parâmetros do Recordset ADO</b></font></td>
    </tr>
    <tr>
        <td valign="top" width="45%"><font size="2"
        face="Verdana">dbOpenDynaset </font></td>
        <td valign="top" width="55%"><font size="2"
        face="Verdana">CursorType=adOpenKeyset </font></td>
    </tr>
    <tr>
        <td valign="top" width="45%"><font size="2"
        face="Verdana">dbOpenSnapshot </font></td>
        <td valign="top" width="55%"><font size="2"
        face="Verdana">CursorType=adOpenStatic </font></td>
    </tr>
    <tr>
        <td valign="top" width="45%"><font size="2"
        face="Verdana">dbOpenForwardOnly </font></td>
        <td valign="top" width="55%"><font size="2"
        face="Verdana">CursorType=adOpenForwardOnly </font></td>
    </tr>
    <tr>
        <td valign="top" width="45%"><font size="2"
        face="Verdana">dbOpenTable </font></td>
        <td valign="top" width="55%"><font size="2"
        face="Verdana">CursorType=adOpenKeyset,
        Options=adCmdTableDirect </font></td>
    </tr>
</table>

<table border="1" cellpadding="6" cellspacing="1" width="743"
bgcolor="#C0C0C0">
    <tr>
        <td valign="top" width="45%" height="30"><font
        color="#000080" size="1" face="Verdana"><b>Opção de
        valores para o Recordset DAO</b></font></td>
        <td valign="top" width="55%" height="30"><font
        color="#000080" size="1" face="Verdana"><b>Propriedades
        do Recordset ADO</b></font></td>
    </tr>
    <tr>
        <td valign="top" width="45%"><font size="2"
        face="Verdana">dbAppendOnly </font></td>
        <td valign="top" width="55%"><font size="2"
        face="Verdana">Properties(&quot;Append-Only Rowset&quot;)
        </font></td>
    </tr>
    <tr>
        <td valign="top" width="45%"><font size="2"
        face="Verdana">dbSQLPassThrough </font></td>
        <td valign="top" width="55%"><font size="2"
        face="Verdana">Properties(&quot;Jet OLEDB:ODBC
        Pass-Through Statement&quot;) </font></td>
    </tr>
    <tr>
        <td valign="top" width="45%"><font size="2"
        face="Verdana">dbSeeChanges </font></td>
        <td valign="top" width="55%"><font size="2"
        face="Verdana">Sem equivalentes</font></td>
    </tr>
    <tr>
        <td valign="top" width="45%"><font size="2"
        face="Verdana">dbDenyWrite </font></td>
        <td valign="top" width="55%"><font size="2"
        face="Verdana">Sem equivalentes</font></td>
    </tr>
    <tr>
        <td valign="top" width="45%"><font size="2"
        face="Verdana">dbDenyRead </font></td>
        <td valign="top" width="55%"><font size="2"
        face="Verdana">Sem equivalentes</font></td>
    </tr>
    <tr>
        <td valign="top" width="45%"><font size="2"
        face="Verdana">dbInconsistent </font></td>
        <td valign="top" width="55%"><font size="2"
        face="Verdana">Properties(&quot;Jet
        OLEDB:Inconsistent&quot;) = True </font></td>
    </tr>
    <tr>
        <td valign="top" width="45%"><font size="2"
        face="Verdana">dbConsistent </font></td>
        <td valign="top" width="55%"><font size="2"
        face="Verdana">Properties(&quot;Jet
        OLEDB:Inconsistent&quot;) = False </font></td>
    </tr>
</table>

<table border="1" cellpadding="6" cellspacing="1" width="743"
bgcolor="#FFFFFF">
    <tr>
        <td valign="top" width="45%" height="30"><font
        color="#000080" size="1" face="Verdana"><b>Tipos de
        bloqueios(LockType) do Recordset DAO </b></font></td>
        <td valign="top" width="55%" height="30"><font
        color="#000080" size="1" face="Verdana"><b>Tipos de
        bloqueios(LockType) do Recordset ADO</b></font></td>
    </tr>
    <tr>
        <td valign="top" width="45%" bgcolor="#FFFF00"><font
        size="2" face="Verdana">dbReadOnly </font></td>
        <td valign="top" width="55%" bgcolor="#FFFF00"><font
        size="2" face="Verdana">adLockReadOnly </font></td>
    </tr>
    <tr>
        <td valign="top" width="45%" bgcolor="#FFFF00"><font
        size="2" face="Verdana">dbPessimistic </font></td>
        <td valign="top" width="55%" bgcolor="#FFFF00"><font
        size="2" face="Verdana">adLockPessimistic </font></td>
    </tr>
    <tr>
        <td valign="top" width="45%" bgcolor="#FFFF00"><font
        size="2" face="Verdana">dbOptimistic </font></td>
        <td valign="top" width="55%" bgcolor="#FFFF00"><font
        size="2" face="Verdana">adLockOptimistic </font></td>
    </tr>
</table>

<p><font color="#000000" size="2" face="Verdana">O objeto
Recordset da ADO possui a propriedade <strong>CursorLocation</strong></font><font
size="2" face="Verdana"> que pode ter dois valores: <strong>adUseServer</strong>
e <strong>adUseClient</strong>. O padrão assumido é <strong>adUseServer</strong>
, com ele a performance é bem melhor , para base de dados
locais. Para acesso a base de dados cliente-Servidor , tipo
SQL-Server, o valor <strong>adUseClient</strong> apresenta melhor
resultado.</font></p>

<p><font size="2" face="Verdana">De uma forma geral usamos<strong>
adUserServer</strong>, devemos ter em mente que com isto não
poderemos usar os métodos <strong>Find</strong> e <strong>Sort</strong>
no Recordset.</font></p>

===Abrindo um Recordset somente-leitura e forwardOnly===

<p><font size="2" face="Verdana">Abrindo a <em>base de dados
NWIND.MDB</em> e a <em>tabela Clientes</em> , mostrando todas a
informações dos clientes cuja </font><font color="#004080"
size="2" face="Verdana"><strong>cidade for igual a SP .</strong></font></p>

<p><font color="#004080" size="2" face="Verdana"><strong>DAO</strong></font></p>

<table border="0">
    <tr>
        <td bgcolor="#00FFFF"><font size="2" face="Verdana">Dim
        db As DAO.Database </font><p><font size="2"
        face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim rst As
        DAO.Recordset </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim
        fld As DAO.Field </font></p>
        <p><font color="#008000" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Abre
        a base de dados</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Set
        db = DBEngine.OpenDatabase(&quot;C:\nwind.mdb&quot;) </font></p>
        <p><font color="#008040" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Abre
        o Recordset</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Set
        rst = db.OpenRecordset(&quot;Select * from Clientes where
        Cidade&quot; &amp; _ </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;
        = 'SP'&quot;, dbOpenForwardOnly, dbReadOnly) </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'</font><font
        color="#008040" size="2" face="Verdana">Imprime os
        valores dos campos para o primeiro registro</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For
        Each fld In rst.Fields </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print
        fld.Value &amp; &quot;;&quot;; </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Next
        </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;</font><font
        color="#008040" size="2" face="Verdana">&nbsp;'Fecha o
        Recordset</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Close
        </font></p>
        </td>
    </tr>
</table>

<p><font color="#004080" size="2" face="Verdana"><strong>ADO</strong></font></p>

<table border="0">
    <tr>
        <td bgcolor="#FFFF00"><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim
        cnn&nbsp; As New ADODB.Connection </font><p><font
        size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim
        rst&nbsp; As New ADODB.Recordset </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim
        fld As ADODB.Field </font></p>
        <p><font color="#0000FF" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Abre
        uma conexão</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;cnn.Open
        &quot;Provider=Microsoft.Jet.OLEDB.3.51;Data
        Source=C:\nwind.mdb;&quot; </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'</font><font
        color="#0000FF" size="2" face="Verdana">Abre o Recordse
        somente-leitura</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Open
        &quot;Select * from Clientes where Cidade = 'SP'&quot;,
        cnn, _ </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;adOpenForwardOnly,
        adLockReadOnly </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'</font><font
        color="#0000FF" size="2" face="Verdana">Imprime os
        valores dos campos para o primeiro registro</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;For
        Each fld In rst.Fields </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print
        fld.Value &amp; &quot;;&quot;; </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Next
        </font></p>
        <p><font color="#0000FF" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Fecha
        o Recordset</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Close
        </font></p>
        </td>
    </tr>
</table>

===Movendo-se através de um Recordset===

<p><font color="#000000" size="2" face="Verdana">Em um recordset
o ponteiro do registro pode estar nas seguintes posições: BOF -
Antes do primeiro registro, EOF - depois do último registro ou
em qualquer posição dentro do Recordsert. </font></p>

<p><font color="#000000" size="2" face="Verdana">Os métodos de
movimentação de um registro para o outro , tanto em DAO como na
ADO , são : </font><font size="2" face="Verdana"><b>Move</b>, <b>MoveFirst</b>,
<b>MoveLast</b>, <b>MoveNext</b>, e <b>MovePrevious</b>. Vejamos
abaixo exemplo para o método <strong>Movenext</strong>.</font></p>

<p><font color="#004080" size="2" face="Verdana"><strong>DAO</strong></font></p>

<table border="0">
    <tr>
        <td bgcolor="#00FFFF"><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim
        db As DAO.Database </font><p><font size="2"
        face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim rst As
        DAO.Recordset </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim
        fld As DAO.Field </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;</font><font
        color="#008000" size="2" face="Verdana">&nbsp;'Abre a
        base de dados</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Set
        db = DBEngine.OpenDatabase(&quot;C:\nwind.mdb&quot;) </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Abre
        o Recordset</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Set
        rst = db.OpenRecordset(&quot;Select * from Customers
        where Region&quot; &amp; _ </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;
        = 'WA'&quot;, dbOpenForwardOnly, dbReadOnly) </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;</font><font
        color="#008000" size="2" face="Verdana">&nbsp;&nbsp;'Imprime
        os valores para o campo do primeiro registro na janela de
        depuração</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;While
        Not rst.EOF </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For
        Each fld In rst.Fields Debug.Print fld.Value &amp;
        &quot;;&quot;; </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next
        </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print
        </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rst.MoveNext
        </font><font color="#008000" size="2" face="Verdana">'Move-se
        para o próximo registro do recordset</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Wend
        </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;</font><font
        color="#008000" size="2" face="Verdana">'Fecha o
        recordset</font></p>
        <p><font size="2" face="Verdana">rst.Close </font></p>
        </td>
    </tr>
</table>

<p><font color="#004080" size="2" face="Verdana"><strong>ADO</strong></font></p>

<table border="0">
    <tr>
        <td bgcolor="#FFFF00"><font size="2" face="Verdana">Dim
        cnn As New ADODB.Connection </font><p><font size="2"
        face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim rst As New
        ADODB.Recordset </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim
        fld As ADODB.Field </font></p>
        <p><font color="#0000FF" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Abre
        uma conexão</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;cnn.Open
        &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data
        Source=C:\nwind.mdb;&quot; </font></p>
        <p><font color="#0000FF" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Abre
        um Recordset do tipo forward-only</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Open
        &quot;Select * from Customers where Region = 'WA'&quot;,
        cnn, _ </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;adOpenForwardOnly,
        adLockReadOnly </font></p>
        <p><font color="#0000FF" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Imprime
        os valores do primeiro registro na janela de depuração</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;While
        Not rst.EOF </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For
        Each fld In rst.Fields Debug.Print fld.Value &amp;
        &quot;;&quot;; </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next
        </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print
        </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rst.MoveNext
        </font><font color="#0000FF" size="2" face="Verdana">'Move-se
        para o próximo registro do recordset</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Wend
        </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;</font><font
        color="#0000FF" size="2" face="Verdana">&nbsp;'Fecha o
        recordset </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Close
        </font></p>
        </td>
    </tr>
</table>

<p><font size="2" face="Verdana">Podemos reescrever o código em
ADO usando o parâmetro <em><strong>ActiveConnection</strong></em>
do método Open do objeto Recordset especificando uma <em><strong>string
connection</strong></em> ao invés de primeiro abrir o <em><strong>objeto
connection</strong></em>. O código é:</font></p>

<table border="0">
    <tr>
        <td bgcolor="#FFFF00"><font size="1" face="Verdana">rst.Open
        &quot;Select * from Customers where Region = 'WA'&quot;,
        _ </font><p><font size="1" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;</font><font
        color="#FF0000" size="1" face="Verdana">&quot;Provider=Microsoft.Jet.OLEDB.4.0;Data
        Source=C:\nwind.mdb;&quot;,</font><font size="1"
        face="Verdana"> _ </font></p>
        <p><font size="1" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;adOpenForwardOnly,
        adLockReadOnly </font></p>
        </td>
    </tr>
</table>

<p><font size="2" face="Verdana">Neste caso o objeto <em><strong>connection</strong></em>
é criado implicitamente.</font></p>

===Determinando a posição atual do registro===

<p><font color="#000000" size="2" face="Verdana">A propriedade <em><strong>AbsolutePosition</strong></em>
permite determinar o número atual do registro tanto na DAO como
na ADO.Vejamos:</font></p>

<p><font color="#004080" size="2" face="Verdana"><strong>DAO</strong></font></p>

<table border="0">
    <tr>
        <td bgcolor="#00FFFF"><font size="2" face="Verdana">Dim
        db As DAO.Database </font><p><font size="2"
        face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim rst As
        DAO.Recordset </font></p>
        <p><font color="#008000" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Abre
        a base de dados</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Set
        db = DBEngine.OpenDatabase(&quot;C:\nwind.mdb&quot;) </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Abre
        o Recordset</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Set
        rst = db.OpenRecordset(&quot;Select * from
        Customers&quot;, dbOpenDynaset) </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;</font><font
        color="#008000" size="2" face="Verdana">&nbsp;'Imprime a
        posição do registro </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print
        rst.AbsolutePosition </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;</font><font
        color="#008000" size="2" face="Verdana">'Move-se para
        outro registro</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.MoveLast
        </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;</font><font
        color="#008000" size="2" face="Verdana">&nbsp;&nbsp;'Imprime
        a posição do registro</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print
        rst.AbsolutePosition </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;</font><font
        color="#008000" size="2" face="Verdana">&nbsp;&nbsp;'Fecha
        o recordset</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Close
        </font></p>
        </td>
    </tr>
</table>

<p><font color="#004080" size="2" face="Verdana"><strong>ADO</strong></font></p>

<table border="0">
    <tr>
        <td bgcolor="#FFFF00"><font size="2" face="Verdana">Dim
        cnn As New ADODB.Connection </font><p><font size="2"
        face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim rst As New
        ADODB.Recordset </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;</font><font
        color="#0000FF" size="2" face="Verdana">'Abre a conexão</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;cnn.Open
        &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data
        Source=C:\nwind.mdb;&quot; </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;</font><font
        color="#0000FF" size="2" face="Verdana">&nbsp;'Abre o
        Recordset</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;<strong>rst.CursorLocation
        = adUseClient</strong> </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Open
        &quot;Select * From Customers&quot;, cnn, adOpenKeyset, _
        </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;adLockOptimistic,
        adCmdText </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;</font><font
        color="#0000FF" size="2" face="Verdana">&nbsp;'Mostra a
        posição do registro</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print
        rst.AbsolutePosition </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'</font><font
        color="#0000FF" size="2" face="Verdana">move-se para o
        ultimo registro</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.MoveLast
        </font></p>
        <p><font size="2" face="Verdana">&nbsp;</font><font
        color="#0000FF" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;'mostra
        a posicao do registro</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print
        rst.AbsolutePosition </font></p>
        <p><font color="#0000FF" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'fecha
        o recordset</font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Close
        </font></p>
        </td>
    </tr>
</table>

<p><font size="2" face="Verdana">A propriedade <strong>AbsolutePosition</strong>
embora seja usada da mesma maneira em DAO e ADO retorna valores
diferentes:</font></p>

<p><font size="2" face="Verdana">DAO -&gt; A propriedade retorna
o valor 0 (zero) para o primeiro registro</font></p>

<p><font size="2" face="Verdana">DAO -&gt; A propriedade retorna
o valor 1 (hum) para o primeiro registro</font></p>

<p><font size="2" face="Verdana">Observe que usamos a propriedade
<strong>CursorLocation</strong> como <strong>adUseClient</strong>,
se tivessemos usado o valor <strong>adUseServer</strong> a ADO
iria retornar (-1)(desconhecido) para o primeiro registro do
recordset.</font></p>

<p><font size="2" face="Verdana">A propriedade <strong>PercentPosition</strong>
(<em>retorna um percentual representando a posição aproximada
do registro atual dentro do recordset</em>) da DAO não esta
presente na ADO. Usando o valor adUseClient para CursorLocation
podemos fazer um cálculo equivalente usando a propriedade <strong>RecordCount</strong>.
(Ex: (posição atual/total de registros) * 100 )</font></p>

===Encontrando registros em um recordset===

<p><font size="1" face="Verdana"><strong>Find e Seek</strong> ,
estes são os dois mecanismos usados para encontrar um registro
em um recordset , tanto na DAO como na ADO. <strong>Seek</strong>
é mais rápido , mas soment pode ser usado em objetos Recordsets
que suportam índices. </font></p>

====Usando o método Find====

<p><font color="#004080" size="2" face="Verdana"><strong>DAO</strong></font></p>

<table border="0" bgcolor="#00FFFF">
    <tr>
        <td><pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim db As DAO.Database </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim rst As DAO.Recordset </font></pre>
        <pre><font color="#008000" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Abrindo a base de dados</font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Set db = DBEngine.OpenDatabase(&quot;C:\nwind.mdb&quot;) </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;</font><font
color="#008000" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;'Abrindo o Recordset</font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Set rst = db.OpenRecordset(&quot;Customers&quot;, dbOpenDynaset) </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;</font><font
color="#008000" size="2" face="Verdana">&nbsp;'Procurando o primeiro cliente cujo pais seja 'USA'</font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.FindFirst &quot;Country = 'USA'&quot; </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;</font><font
color="#008000" size="2" face="Verdana">'Agora imprimimos os codigos p/os clientes cujo país encontrado foi <strong>USA</strong></font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;While Not rst.NoMatch </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print rst.Fields(&quot;CustomerId&quot;).Value </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rst.FindNext &quot;Country = 'USA'&quot; </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Wend </font></pre>
        <pre><font color="#008000" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Fechando o Recorset</font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Close </font></pre>
        </td>
    </tr>
</table>

<p><font color="#004080" size="2" face="Verdana"><strong>ADO</strong></font></p>

<table border="0">
    <tr>
        <td bgcolor="#FFFF00"><pre><font size="2" face="Verdana">    Dim cnn As New ADODB.Connection </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim rst As New ADODB.Recordset </font></pre>
        <pre><font color="#0000FF" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Criando uma instância do objeto Connection</font><font
size="2" face="Verdana"> </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;cnn.Open &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\nwind.mdb;&quot; </font></pre>
        <pre><font color="#0000FF" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Abrindo o Recordset</font><font
size="2" face="Verdana"> </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Open &quot;Customers&quot;, cnn, adOpenKeyset, adLockOptimistic </font></pre>
        <pre><font color="#0000FF" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Procurando o primeiro cliente cujo pais seja 'USA'</font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Find &quot;Country='USA'&quot; </font></pre>
        <pre><font color="#0000FF" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Agora imprimimos os codigos p/os clientes cujo país encontrado é <strong>USA</strong></font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;While Not rst.EOF </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print rst.Fields(&quot;CustomerId&quot;).Value </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rst.Find &quot;Country='USA'&quot;, 1 </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Wend </font></pre>
        <pre><font color="#0000FF" size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'Fecha o Recordset</font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Close </font></pre>
        </td>
    </tr>
</table>

<p><font size="2" face="Verdana">A DAO possui ainda os métodos:<strong>
FindFirst, FindNext, FindLast e FindPrevious</strong> eles
localizam o primeiro registro, o último registro, o registro
anterior ou o próximo registro em um objeto Recordset que
satisfaça aos critérios de localização especificados e torna
esse registro o registro atual.</font></p>

<p><font size="2" face="Verdana">A sintaxe para estes métodos é
a seguinte:</font></p>

<p><font size="2" face="Verdana"><em><strong>Variável Objeto
Recordset.</strong></em><strong>{FindFirst | FindLast | FindNext
| FindPrevious} </strong><em><strong>critérios de localização</strong></em></font></p>

<p><font size="2" face="Verdana">Cada um dos métodos <strong>Find</strong>
começa sua pesquisa a partir do local e na direção
especificados na tabela a seguir.</font></p>
<div align="left">

<table border="1" bgcolor="#FFFFFF">
    <tr>
        <td valign="top" bgcolor="#FFFF00"><font color="#0000FF"
        size="2" face="Verdana"><strong>Método Find</strong></font></td>
        <td rowspan="5"><font size="2" face="Verdana"></font>&nbsp;</td>
        <td valign="top" bgcolor="#FFFF00"><font color="#0000FF"
        size="2" face="Verdana"><strong>Inicia a pesquisa no</strong></font></td>
        <td rowspan="5"><font size="2" face="Verdana"></font>&nbsp;</td>
        <td bgcolor="#FFFF00"><font color="#0000FF" size="2"
        face="Verdana"><strong>Direção da pesquisa</strong></font></td>
    </tr>
    <tr>
        <td><font color="#0000FF" size="2" face="Verdana"><strong>FindFirst</strong></font></td>
        <td><font color="#FF8000" size="2" face="Verdana"><strong>Início
        do conjunto de registros </strong></font></td>
        <td><font color="#800080" size="2" face="Verdana"><strong>Final
        do conjunto de registros</strong></font></td>
    </tr>
    <tr>
        <td><font color="#0000FF" size="2" face="Verdana"><strong>FindLast</strong></font></td>
        <td><font color="#FF8000" size="2" face="Verdana"><strong>Final
        do conjunto de registros</strong></font></td>
        <td><font color="#800080" size="2" face="Verdana"><strong>Início
        do conjunto de registros</strong></font></td>
    </tr>
    <tr>
        <td><font color="#0000FF" size="2" face="Verdana"><strong>FindNext</strong></font></td>
        <td><font color="#FF8000" size="2" face="Verdana"><strong>Registro
        atual</strong></font></td>
        <td><font color="#800080" size="2" face="Verdana"><strong>Final
        do conjunto de registros</strong></font></td>
    </tr>
    <tr>
        <td><font color="#0000FF" size="2" face="Verdana"><strong>FindPrevious</strong></font></td>
        <td><font color="#FF8000" size="2" face="Verdana"><strong>Registro
        atual</strong></font></td>
        <td><font color="#800080" size="2" face="Verdana"><strong>Início
        do conjunto de registros</strong></font></td>
    </tr>
</table>
</div>

<p><font size="2" face="Verdana">A ADO possui somente o método :
<strong>Find</strong> e sempre inicia a busca do registro atual.
A direção da busca é fornecida com a utilização de
parâmetros</font></p>

<p><font size="2" face="Verdana">A tabela a seguir mostra o
equivalente em ADO para os métodos da DAO:</font></p>

<table border="1" cellpadding="6" cellspacing="1" width="743"
bgcolor="#00FFFF">
    <tr>
        <td valign="top" width="26%" height="30"><font
        color="#000080" size="1" face="Verdana"><b>metodo</b> <strong>DAO</strong></font></td>
        <td valign="top" width="54%" height="30"><font
        color="#000080" size="1" face="Verdana"><b>ADO direção
        da busca</b></font></td>
    </tr>
    <tr>
        <td valign="top" width="26%"><font size="2"
        face="Verdana"><b>FindFirst</b> </font></td>
        <td valign="top" width="54%"><font size="2"
        face="Verdana"><b>adSearchForward</b> (Se não estiver
        posicionado no primeiro registro, invoque o método <b>MoveFirst</b>
        antes do <b>Find</b>) </font></td>
    </tr>
    <tr>
        <td valign="top" width="26%"><font size="2"
        face="Verdana"><b>FindLast</b> </font></td>
        <td valign="top" width="54%"><font size="2"
        face="Verdana"><b>adSearchBackward</b> (Se não estiver
        posicionado no último registro ,invoque o método l <b>MoveLast</b>
        antes do <b>Find</b>) </font></td>
    </tr>
    <tr>
        <td valign="top" width="26%"><font size="2"
        face="Verdana"><b>FindNext</b> </font></td>
        <td valign="top" width="54%"><font size="2"
        face="Verdana"><b>adSearchForward</b> </font></td>
    </tr>
    <tr>
        <td valign="top" width="26%"><font size="2"
        face="Verdana"><b>FindPrevious</b> </font></td>
        <td valign="top" width="54%"><font size="2"
        face="Verdana"><b>adSearchBackward</b> </font></td>
    </tr>
</table>

<p><font size="2" face="Verdana">Existe uma diferença basica
entre DAO e ADO para localizar registros com valor NULL.</font></p>

<p><font size="2" face="Verdana">Ao utilizar a DAO a sintaxe
usada é:</font></p>

<p><font color="#004080" size="3" face="Verdana"><strong>&quot;ColumnName</strong></font><font
color="#808000" size="3" face="Verdana"><strong> Is Null</strong></font><font
color="#004080" size="3" face="Verdana"><strong>&quot;</strong></font><font
color="#000000" size="2" face="Verdana"> ou</font><font
color="#004080" size="3" face="Verdana"><strong> &quot;ColumnName
</strong></font><font color="#808000" size="3" face="Verdana"><strong>Is
Not Null</strong></font><font color="#004080" size="3"
face="Verdana"><strong>&quot;</strong></font></p>

<p><font color="#000000" size="2" face="Verdana">Como ADO não
reconhece o operador<strong> Is</strong> devemos usar os <strong>operadores
( = ) ou ( &lt;&gt; ),</strong> assim ficamos com:</font></p>

<p><font color="#004080" size="3" face="Verdana"><strong>&quot;ColumnName
= Null&quot; ou &quot;ColumnName &lt;&gt; Null&quot;</strong></font></p>

<p><font size="2" face="Verdana">A <strong>DAO</strong> possui a
propriedade <strong>NoMatch</strong> que é usada para saber se a
busca foi bem sucedida ou não . <strong>ADO</strong> não possui
a propriedade <strong>NoMatch</strong> , para obtermos o mesmo
efeito na <strong>ADO</strong> devemos usar as propriedades<strong>
BOF</strong> e<strong> EOF</strong>.</font></p>

====Usando o método Seek====

<p><font color="#004080" size="2" face="Verdana"><strong>DAO</strong></font></p>

<table border="0">
    <tr>
        <td bgcolor="#00FFFF"><font size="2" face="Verdana">Dim
        db As DAO.Database </font><p><font size="2"
        face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim rst As
        DAO.Recordset </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;</font><font
        color="#000000" size="2" face="Verdana">&nbsp;<strong>'Abre
        a base de dados</strong></font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Set
        db = DBEngine.OpenDatabase(&quot;C:\nwind.mdb&quot;) </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;<strong>'Abre
        o Recordset</strong></font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Set
        rst = db.OpenRecordset(&quot;order Details&quot;,
        dbOpenTable) </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;<strong>&nbsp;'Seleciona
        o indice</strong></font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Index
        = &quot;PrimaryKey&quot; </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;<strong>&nbsp;&nbsp;'Busca
        pela registro onde OrderId=10255 e ProductId=16</strong></font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Seek
        &quot;=&quot;, 10255, 16 </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;<strong>&nbsp;'Se
        encontrou imprime</strong></font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;If
        Not rst.NoMatch Then </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print
        rst.Fields(&quot;Quantity&quot;).Value </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;End
        If </font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;<strong>'Fecha
        o Recordset</strong></font></p>
        <p><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Close
        &nbsp;&nbsp;&nbsp; </font></p>
        </td>
    </tr>
</table>

<p><font color="#004080" size="2" face="Verdana"><strong>ADO</strong></font></p>

<table border="0">
    <tr>
        <td bgcolor="#FFFF00"><pre><font size="2" face="Verdana">Dim cnn As New ADODB.Connection </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;Dim rst As New ADODB.Recordset </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;<strong>&nbsp;'Abre uma conexão</strong></font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;cnn.Open &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\nwind.mdb;&quot; </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;<strong>&nbsp;'Selecione um índice ativo</strong></font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Index = &quot;PrimaryKey&quot; </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;<strong>&nbsp;'Abre o Recordset</strong></font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Open &quot;Order Details&quot;, cnn, adOpenKeyset, adLockOptimistic, adCmdTableDirect </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;'<strong>Busca pela registro onde OrderId=10255 e ProductId=16</strong></font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Seek Array(10255, 16), adSeekFirstEQ </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;<strong>&nbsp;'Se Achou imprime</strong></font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;If Not rst.EOF Then </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print rst.Fields(&quot;Quantity&quot;).Value </font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;End If </font></pre>
        <pre><font size="2" face="Verdana"><strong>&nbsp;&nbsp;&nbsp;&nbsp;'Fecha o Recordset</strong></font></pre>
        <pre><font size="2" face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;rst.Close </font></pre>
        </td>
    </tr>
</table>

<p><font size="2" face="Verdana">O método <strong>Seek</strong>
é baseado em índices por isso ele deve ser indicado antes de
acionar o método. Quando nada é informado o Jet utiliza a chave
primária ( <strong>Primary Key</strong> ).</font></p>

<p><font size="2" face="Verdana">No exemplo para a <strong>ADO</strong>
usamos uma <strong><u>função array</u></strong> para
especificar os valores para as duas colunas como parte dos
parâmetros<em><strong> KeyValues</strong></em> . Para
especificar somente um valor não há necessidade de utilizar a
função.</font></p>

<p><font size="2" face="Verdana">Para a <strong>ADO</strong> ,
como no caso anterior, devemos usar as propriedades <strong>BOF</strong>
e <strong>EOF</strong> para verificar se a busca foi bem sucedida
ou não.</font></p>

<hr>

Fonte: [http://www.macoratti.net/dao_ado2.htm Jose Carlos Macoratti]