Esta instrução deve aparecer quando selecionado apenas um ítem da lista assim: Como"123*"

Quando o usuario seleciona mais de um ítem da lista aparece assim: Como"123*" Ou Como"124*" Ou "*"........ esse é o problema, esse ultimo Ou "*" não deveria aparecer pois senão a consulta fica geral e não filtra......penso que Ou"*" deveria ser apenas Ou""

Agradeço qualquer ajuda...........Onde estou errando???........abraços a todos

Dim X As Integer
Dim wSql As String
wSql = " SELECT CadastroLote.*, CadastroEtiq.Periculosidade FROM CadastroLote Where "
If List1.ListCount > 0 Then
    For X = 0 To List1.ListCount
         If wSql = " SELECT CadastroLote.* FROM CadastroLote Where " Then
            wSql = wSql & " CadastroLote.Lote Like """ & List1.List(X) & "*"""
         Else
            wSql = wSql & " Or CadastroLote.Lote Like """ & List1.List(X) & """"
         End If
   Next X
Qd.SQL = wSql
End If