borrar varios registros con delete sql

[detective_jd]

hola después de tanta búsqueda lo logré con el listview:

Private Sub cmdeliminarproveedor()
multiopcion = MsgBox("¿Desea Eliminar el Proveedor Seleccionado?", vbExclamation + vbYesNo, "Advertencia")
If multiopcion = vbYes Then
For contador = Me.LVWproveedores.ListItems.Count To 1 Step -1
If Me.LVWproveedores.ListItems(contador).Selected = True Then
cnnADODB.Execute ("Delete from proveedores where codigoproveedor= " & Me.LVWproveedores.ListItems(contador).Text)
End If
Next contador
Call cargarListViewprov(LVWproveedores)
End If
End Sub

ahora lo que quiero es contar las filas seleccionadas del listview sí es una sóla fila que me muestre un msgbox simple, sí es más de una fila que me muestre la cantidad de filas que quiero borrar, no sé hacerlo ¿pueden ayudarme?, sí responden este mje se los agradezco.