Visual Basic - Duplicar

tengo una consulta donde me duplica los registros... y no deberia ser asi. Esta se muestra en un listview que prebiamente fue limpiado... la intencion de esto es que cuando escoja un item de una listbox automaticamente haga la busqueda y muestre en el listview el resultado... aqui les dejo la linea de codio para que me digan que esta mal:

Private Sub lstEspeciialidad_Click()
Dim cuantos As Long
Dim Marcador As Long
Dim Plus As Double
If Me.lstEspeciialidad.Selected(lstEspeciialidad.ListIndex) <> False Then
If Me.txtPorcentaje <> "" Then
sql = "select * from ESPECIALIDAD where (Especialidad= '" & Me.lstEspeciialidad.Text & "')"
AdoCargar.Open sql, AdoConexion, adOpenDynamic, adLockOptimistic
Marcador = AdoCargar!Id_Especialidad
AdoCargar.Close
Set AdoComando = Nothing
Set AdoParametro = Nothing
AdoComando.CommandText = "PRECIOSConsulta"
AdoComando.CommandType = adCmdStoredProc
Set AdoParametro = AdoComando.CreateParameter("esp", adDouble, adParamInput)
AdoComando.Parameters.Append AdoParametro
AdoParametro.Value = Marcador
Set AdoComando.ActiveConnection = AdoConexion
Set AdoCargar = AdoComando.Execute
cuantos = AdoCargar.MaxRecords
Plus = Me.txtPorcentaje / 100
If Me.optMenos.Value = True Then Plus = -1 * Plus
Sleep 500
Do While Not AdoCargar.EOF
Set itmList = LstPrecios.ListItems.Add(, , AdoCargar!Id_Precio)
itmList.SubItems(1) = AdoCargar!Muestras
itmList.SubItems(2) = FormatNumber(AdoCargar!listaprecio1 + (AdoCargar!listaprecio1 * Plus), 2)
itmList.SubItems(3) = FormatNumber(AdoCargar!listaprecio2 + (AdoCargar!listaprecio2 * Plus), 2)
itmList.SubItems(4) = FormatNumber(AdoCargar!listaprecio3 + (AdoCargar!listaprecio3 * Plus), 2)
itmList.SubItems(5) = FormatNumber(AdoCargar!listaprecio4 + (AdoCargar!listaprecio4 * Plus), 2)
AdoCargar.MoveNext
Loop
AdoCargar.Close
End If
End If
End Sub

Nota no se si es error de coidgo o error de las propiedades de la tabla de la base de datos