Resultado da busca mostra mais do que deve

Tenho uma busca de vistorias de carro em um site, mas ela está ordenando o resultado, não mostrando apenas o que procurei.

Exemplo:

tenho no banco, uno branco, uno preto, corsa verde.

Ao buscar por uno, aparecem os unos em primeiro e o corsa em seguida.

Já cansei de olhar o código e não acho onde consertar

<%
If Session("logado") = true then
if Request.QueryString("usuario")= "" then
Response.Write("Voce precisa estar logado")
Else

Dim rec1
rec1 = "1"
If (Request.Form("busca") <> "") Then
rec1 = Request.Form("busca")
End If
%>
<%
Dim rcs1
Dim rcs1a

Set rcs1 = Server.CreateObject("ADODB.recordset")
rcs1.ActiveConnection = strCon
rcs1.Source = "SELECT * FROM vistorias WHERE marca = '" + Replace(rec1, "'", "''") + "'"
rcs1.CursorType = 0
rcs1.CursorLocation = 2
rcs1.LockType = 1
rcs1.Open()

rcs1a = 0
%>

<form method="POST" action="vistorias.asp?usuario=<%=Request.QueryString("usuario")%>">
Procurar
<input type="text" name="string_busca" value="<%=Request("string_busca")%>">
em

<label>
<select name="criterio">
 <option value="Cliente">Cliente</option>
 <option value="Marca">Marcas</option>
 <option value="Modelo">Modelos</option>
 <option value="Placa">Placas ou Chassis</option>
</select>
</label>
<input type='submit' value='Buscar'>
</form>

<%
'Cria instância rcs e faz a consulta na tabela tbClientes

sql = "SELECT * FROM vistorias WHERE seguradora LIKE '%"&Request.QueryString("usuario")&"%' ORDER BY ID"

 If Request.Form("criterio") = "Cliente" Then
 sql = sql & " AND cliente like '%" & Trim(Request("string_busca")) & "%'"
 End If
 If Request.Form("criterio") = "Marca" Then
 sql = sql & " AND marca like '%" & Trim(Request("string_busca")) & "%'"
 End If
 If Request.Form("criterio") = "Modelo" Then
 sql = sql & " AND modelo like '%" & Trim(Request("string_busca")) & "%'"
 End If
 If Request.Form("criterio") = "Placa" Then
 sql = sql & " AND chassi like '%" & Trim(Request("string_busca")) & "%'"
 End If

 Set rsBusca = Server.CreateObject("ADODB.recordset")
 rsBusca.Open sql, strCon, 3

'Verifica se foi encontrado algum registro
If rsBusca.EOF Then
Response.Write "<br> Não foi encontrado nenhum registro!"
Else

'Lista os clientes se encontrados

Response.Write "<div align='left'>Seu login:"
Response.Write rsBusca("seguradora") & "</div><br>"

Response.Write "<table width='100%'>"
Response.Write "<b><tr bgcolor=#219629><td>"
Response.Write "</td><td align=center style=font-size:11px>"
Response.Write "CLIENTE" & "</td><td align=center style=font-size:11px>"
Response.Write "MARCA" & "</td><td align=center style=font-size:11px>"
Response.Write "MODELO" & "</td><td align=center style=font-size:11px>"
Response.Write "PLACA OU CHASSI" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 1" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 2" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 3" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 4" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 5" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 6" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 7" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 8" & "</td></tr align=center></b>"

While Not rsBusca.EOF

Response.Write "<tr><td>"
Response.Write "<A HREF=backup.asp?ID=" & rsBusca("ID") &">"
Response.Write "<img src='imagens/layout/down.png' width=20 height=20 border=0 alt=Download/></A></td><td>"
Response.Write rsBusca("cliente") & "</td><td>"
Response.Write rsBusca("marca") & "</td><td>"
Response.Write rsBusca("modelo") & "</td><td>"
Response.Write rsBusca("chassi") & "</td><td>"

Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem1").Value
Response.Write " border=0 width=40 height=30>" & "</td><td>"
Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem2").Value
Response.Write " border=0 width=40 height=30>" & "</td><td>"
Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem3").Value
Response.Write " border=0 width=40 height=30>" & "</td><td>"
Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem4").Value
Response.Write " border=0 width=40 height=30>" & "</td><td>"
Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem5").Value
Response.Write " border=0 width=40 height=30>" & "</td><td>"
Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem6").Value
Response.Write " border=0 width=40 height=30>" & "</td><td>"
Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem7").Value
Response.Write " border=0 width=40 height=30>" & "</td><td>"
Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem8").Value
Response.Write " border=0 width=40 height=30>" & "</td></tr>"

'Move para o próximo registro
rsBusca.MoveNext
Wend
Response.Write "</table>"
End If
End If
End If
%>
</p>