LENTIDAO EM APENAS UMA M?QUINA

 sql = [Ô]select loc.*, cli.razao,prod.descricao,vend.nome as nome_vendedor from locacao as loc left join cliente as cli on (loc.codcli = cli.codigo) left join produto as prod on (loc.codprod = prod.codigo) [Ô]

sql = sql & [Ô] left join funcionario as vend on (loc.codvend = vend.codigo) [Ô]
sql = sql & [Ô] where Not IsNull(Loc.CODIGO) and loc.codempresa=[Ô] & varCodEmpresa & [Ô] and [Ô]

If optOrc.Value = True Then
    sql = sql & [Ô] loc.tipo=[ô]O[ô] and [Ô]
Else
    sql = sql & [Ô] loc.tipo=[ô]L[ô] and [Ô]
End If


If txtCodCli <> [Ô][Ô] Then
    sql = sql & [Ô] loc.codcli=[Ô] & txtCodCli & [Ô] and [Ô]
End If
If txtCodProd <> [Ô][Ô] Then
    sql = sql & [Ô] loc.codprod=[Ô] & txtCodProd & [Ô] and [Ô]
End If
If txtModelo <> [Ô][Ô] Then
    sql = sql & [Ô] loc.modelo like [ô][Ô] & txtModelo & [Ô]%[ô] and [Ô]
End If
If cmbVendedor <> [Ô][Ô] Then
    Set dsvend = New ADODB.Recordset
    dsvend.Open [Ô]select codigo from funcionario where nome=[ô][Ô] & cmbVendedor & [Ô][ô][Ô], con, adOpenKeyset, adLockOptimistic
    If Not dsvend.EOF Then
        sql = sql & [Ô] codvend=[Ô] & dsvend!CODIGO & [Ô] and [Ô]
    End If
End If

If txtObra <> [Ô][Ô] Then
    sql = sql & [Ô] loc.obra like [ô]%[Ô] & txtObra & [Ô]%[ô] and [Ô]
End If
If IsDate(d1) And IsDate(d2) Then
    sql = sql & [Ô] loc.data between [ô][Ô] & Format(d1, [Ô]yyyy-mm-dd[Ô]) & [Ô][ô] and [ô][Ô] & Format(d2, [Ô]yyyy-mm-dd[Ô]) & [Ô][ô] and [Ô]
End If
If optFinalizado.Value = True Then
    sql = sql & [Ô] loc.status=[ô]F[ô] and [Ô]
ElseIf optAberto.Value = True Then
    sql = sql & [Ô] loc.status=[ô]P[ô] and [Ô]
Else
    sql = sql & [Ô] loc.status<>[ô]C[ô] and [Ô]
End If

If optDeuBaixaSim.Value = True Then
    sql = sql & [Ô] loc.deubaixa=[ô]S[ô] and [Ô]
ElseIf optDeuBaixaNao.Value = True Then
    sql = sql & [Ô] loc.deubaixa=[ô]N[ô] and [Ô]
End If

If Right(sql, 5) = [Ô] and [Ô] Then sql = Left(sql, Len(sql) - 5)

Set DS = New ADODB.Recordset
DS.Open sql, con, adOpenKeyset, adLockOptimistic

lstPesq.ListItems.Clear

Do While Not DS.EOF
    Set Item = lstPesq.ListItems.Add
    Item.text = DS!CODIGO
    Item.SubItems(1) = Format(DS!Data, [Ô]dd/mm/yyyy[Ô])
    Item.SubItems(2) = IIf(IsNull(DS!razao), [Ô]CLIENTE NAO ENCONTRADO[Ô], DS!razao)
    Item.SubItems(3) = IIf(IsNull(DS!Descricao), [Ô]PRODUTO NAO ENCONTRADO[Ô], DS!Descricao)
    Item.SubItems(4) = DS!Modelo
    Item.SubItems(5) = DS!obra
    Item.SubItems(6) = IIf(IsNull(DS!NOME_VENDEDOR), [Ô]VENDEDOR NAO ENCONTRADO[Ô], DS!NOME_VENDEDOR)
    
    If DS!status = [Ô]P[Ô] Then
        Item.SubItems(7) = [Ô]PENDENTE[Ô]
    ElseIf DS!status = [Ô]F[Ô] Then
        Item.SubItems(7) = [Ô]FINALIZADO[Ô]
    End If
    
    Item.SubItems(8) = IIf(IsNull(DS!databaixa), [Ô][Ô], Format(DS!databaixa, [Ô]dd/mm/yyyy[Ô]))
    DS.MoveNext
Loop