Desculpe a pergunta, mas pra que o comando seek, se existe o select?

 

pois o comando seek era muito utilizado com DAO, para fazer pesquisas, com ferramenta ADO utilizando-se querys isso parou de ser utilizado.

O amigo TREZE tem razão, utilize as instruções SQL é excelente.

 

Veja um exemplo para pesquisar por qualquer parte de um campo::

 

Dim listar As New ADODB.Recordset

Private Sub CommandButton1_Click()
On Error GoTo NOME
If Text3.Text = "" Then
   MsgBox ("Digite um nome ou a inicial de um nome")
   Text3.SetFocus
   Exit Sub
End If
Dim sSQL As String
sSQL = "SELECT  Responsavel.SIAPE, Responsavel.NOME, Patrimonio.codpatrimonio, Patrimonio.Descricao, Patrimonio.Tombamento, Patrimonio.Nr_Serie, Patrimonio.Localizacao, Patrimonio.Data_Inclusao, Patrimonio.Tresp, Patrimonio.Conferido, Patrimonio.Data_Conf FROM Responsavel, Patrimonio where Responsavel.Nome Like '" & Text3.Text & "%' and Responsavel.SIAPE = Patrimonio.SIAPE Order By Patrimonio.descricao"
Set listar = conexao.Execute(sSQL)
ListaGeral.ListItems.Clear
Dim vnome As String
Dim vsiape As String
vsiape = "" & listar!SIAPE
vnome = "" & listar!NOME
Do While Not listar.EOF
    Set lista = ListaGeral.ListItems.Add(, , listar!descricao)
    lista.SubItems(1) = listar!TOMBAMENTO
    lista.SubItems(2) = listar!nr_serie
    lista.SubItems(3) = listar!LOCALIZACAO
    lista.SubItems(4) = listar!DATA_INCLUSAO
    lista.SubItems(5) = listar!TRESP
    lista.SubItems(6) = listar!CONFERIDO
    lista.SubItems(7) = listar!DATA_CONF
    listar.MoveNext
    Loop
    '--------------------------------------------------------
    For i = 1 To 2
     Set lista = ListaGeral.ListItems.Add(, , "")
     Next i
     Set lista = ListaGeral.ListItems.Add(, , "ORIENTAÇÃO: Toda a movimentação de bens que envolva mudanças, tais como localização  física  e ou responsabilidades,")
     Set lista = ListaGeral.ListItems.Add(, , "recolhimento  à  Divisão  de  Patrimônio ou  empréstimo interno, deverá ser devidamente comunicado  ao Admnistrador,")
     Set lista = ListaGeral.ListItems.Add(, , "do DZO, através de comunicação interna.")
     Set lista = ListaGeral.ListItems.Add(, , "")
     Dim hoje As Date
     hoje = Date
     Dim hora As Date
     hora = Time
     Set lista = ListaGeral.ListItems.Add(, , "")
     Set lista = ListaGeral.ListItems.Add(, , "Lavras " & hoje & "  " & "Hora " & Time)
     Set lista = ListaGeral.ListItems.Add(, , "")
     Set lista = ListaGeral.ListItems.Add(, , "NOME DO RESPONSÁVEL:  " & " " & vnome)
     Set lista = ListaGeral.ListItems.Add(, , "CARGO/FUNÇÃO       :   ________________________________________________________")
     Set lista = ListaGeral.ListItems.Add(, , "NÚMERO DO SIAPE    :" & "   " & vsiape)
     Set lista = ListaGeral.ListItems.Add(, , "ASSINATURA         :   ________________________________________________________")
     Set lista = ListaGeral.ListItems.Add(, , "")
     If ListaGeral.SelectedItem Is Nothing Then
        MsgBox "Não existem resultados para exibir." _
   , vbOKOnly + vbInformation, "DZO Patrimônio"
   Exit Sub
NOME:
   MsgBox ("Nome não encontrado. A procura é pelo ínicio do nome")
End If
End Sub
Dim sSQL As String
sSQL = "SELECT  Responsavel.SIAPE, Responsavel.NOME, Patrimonio.codpatrimonio, Patrimonio.Descricao, Patrimonio.Tombamento, Patrimonio.Nr_Serie, Patrimonio.Localizacao, Patrimonio.Data_Inclusao, Patrimonio.Tresp, Patrimonio.Conferido, Patrimonio.Data_Conf FROM Responsavel, Patrimonio where Responsavel.Nome Like '" & Text3.Text & "%' and Responsavel.SIAPE = Patrimonio.SIAPE Order By Patrimonio.descricao"
Set listar = conexao.Execute(sSQL)

Colega Ramos infelismente, não vejo um caminho fácil para sua situação,pois se ha a necessidade de mudança, e vc ter de migrar seu sistema para um novo sgbd, e não um sgbd ao seu sistema, como procura neste tópico, o que posso indicar, é uma maneira a qual utilizei e me facilitou muito na migração, e foi o seguinte, e copiei o cóidigo de meus formulários e colava no WORD, assim eu fazia uma busca e ia alterando, desta maneira adiantei muito a migração de meus softwares.