Como eu utilizo a função tabela.seek utilizando ado 2.6 no sql server 2000?

Rodrigo,

 

O ADO não suporta o Seek, use o Find:

 

Dim Str_Nome As String
If Tabela.RecordCount <> 0 Then
  Tabela.MoveMin
  Tabela.Find "Nome = '" & Str_Nome & "'"
  If Tabela.EOF Then
  MsgBox "Nome não encontrado !", vbOKOnly, "Atenção"
  Exit Sub
End If

Se a pesquisa for em mais de um campo use o Filter

 

Jayme