Pesquisa em banco de dados Access

Pessoal antes de tudo quero agradecer a vocês que mim ajudaram muito desde que comecei a participar do fórum.

Estou com um probleminha aqui, antes eu usava um código que me conectava com o banco de dados no formato (mdb)
só que tiver que mudar para outro que consegui me conectar com o formato (accdb).
Então consegui fazer a mudança nas opções de: adicionar, editar, preencher listview e Combobox.
Mas quando cheguei na parte de pesquisar em textbox e listview, não consegui modificar o código que funcionava no formato (mdb)


Aqui o código do formato (accbd):

Código:

Option Explicit
Dim rst As ADODB.Recordset
Dim cnn As ADODB.Connection

Sub teste()
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\banco.accdb"

rst.Open "Select * FROM TABELA1", cnn, adOpenKeyset, adLockOptimistic

MsgBox rst(0)

rst.Close
cnn.Close
End Sub



preciso adaptar o mesmo para uma pesquisa usando Testbox e listview
o código que estava usando pra pesquisa no BD (mdb) é esse:

Código:

Global banco As Database
Global consulta As Recordset

    Dim valor_pesq As String
    valor_pesq = TextBox1.Text
    Dim ComandoSQL As String
    ComandoSQL = "select * from tabela_clientes where Produto like '*" & valor_pesq & "*' or Categoria like '*" & valor_pesq & "*' "

      
        Set banco = OpenDatabase("C:\endereço_banco.mdb")
    Set consulta = banco.OpenRecordset(ComandoSQL)
    On Error Resume Next
        
    'Populando o Listview1
    ListView1.ListItems.Clear
    
    While Not consulta.EOF
        Set List = ListView1.ListItems.Add(Text:=consulta(0))  'id
            List.SubItems(1) = consulta(1) 'nome
            List.SubItems(2) = consulta(2) 'sobrenome
            List.SubItems(3) = consulta(3) 'CPF
            List.SubItems(4) = consulta(7) 'cidade
            List.SubItems(5) = consulta(8) 'UF
            consulta.MoveNext
     Wend
    
    Set banco = Nothing
    Set consulta = Nothing

O que eu quero?
Fazer com o que o código postado anteriormente na primeira postagem seja adaptado para pesquisar

Cara pelo fato muito simples eu acho srsrs mas não consegui fazer um CAMPO CALCULADO no formato(mdb)

Alguém pra me ajudar gente, precisando urgente desse código

pessoal consegui motar essa linha aki só que tinha dado certo e sem querer fechei o excell e perdi e esqueci como eu tinha feito mais foi essa linha aki

Código:

    Set rst = cnn.OpenRecordset("SELECT * FROM tabela_clientes WHERE Produto LIKE '" & valor_pesq & "%' ")


ta faltando alguma coisa aki nessa linha