Limpiar Consulta

[spiderman78]

Que tal como estan, aqui de nuevo con una consulta, tengo el siguiente problemita, en dias anteriores en otro tema me ayudaron a lograr realizar una consulta y agregarla a un combo q es este codigo

Código:

Private Sub DatosPotencias()
    Dim sql As String, cadena As String
        cadena = id.Text
        Call VisualizarPotencias
        sql = "SELECT * FROM tblpotencia WHERE id1 Like '" & cadena & "' ORDER BY potencia"
    Set potencias = New ADODB.Recordset
       potencias.Open sql, BD, adOpenKeyset, adLockOptimistic
    If potencias.BOF = False Or potencias.EOF = False Then
        potencias.MoveFirst
         Do While potencias.EOF = False
               Combo2.AddItem potencias("potencia")
               potencias.MoveNext
         Loop
   End If
End Sub

El problema que tengo es que si selecciono el mismo producto varias veces o diferentes productos me va agregando los datos q encuentra al combo sin limpiarlo digamoslo de esa manera la unica manera es entrar consultar uno salir del formulario volver a entrar seleccionar otro y asi sucecivamente y de esa manera si me muestra solo la informacion, aqui la cuestion seria si hay alguna forma para que pudiera limiar la informacion y asi poder consultar diferentes productos sin q me tenga que salir de mi formulario..........

garcias por las respuestas y saludos

[David]

Usa Combo2.Clear para limpiar la lista antes de volver a cargarla.

[spiderman78]

Iniciado por David el Grande

Usa Combo2.Clear para limpiar la lista antes de volver a cargarla.

Que tal gracias por la ayuda ya me funciono perfectamente bien


saludos