DAO to ADO SQL

[Joao Pedro]

Hello, i had this sub working within DAO, now using SQL do not work, how can
i change this?

Thanks, Regards

Private Sub tboxPesquisarClientes_AfterUpdate()
Dim sql As String

Set cn = CurrentProject.Connection

sql = "Select T_CLI_NUMERO, T_CLI_ENTIDADE " & _
"From T_CLIENTES_GERAL " & _
"Where T_CLI_ENTIDADE Like '*" & Me.tboxPesquisarClientes & "*'"

Me.lbClientesFiltrar.RowSource = sql
Me.lbClientesFiltrar.Requery
End Sub

 

[Van T. Dinh]

Replace the * with the percentage sign %.

HTH
Van T. Dinh
MVP (Access)

 

[Joao Pedro]

Thanks, worked great

Regards