Los discos si se pueden solo hay que chekar el tipo de unidad logica que es

Por lo menos aky en los foros la mayoria coincidimos en k nos gusta aprender y sin problemas ayudar en lo k podamos pero hay que admitir que tambien casi todos los informaticos tenemos nuestro ego mas pequeño o mas grande pero lo tenemos.. 

Ha se me olvido que lo mas importante es pedir consejos cuando cuando sabemos k no llegaremos a ninguna parte con algo aveces hasta del menos sabio nos da una solucion optima.. eso creo...

Hay va la mia

Public Function FactorizeS(ByVal S As Long) As Collection  
    Dim cTmp    As New Collection
    Dim I       As Long
 
   If S <= 0 Then GoTo Ret
   If S = 1 Then cTmp.Add 1: GoTo Ret
 
   For I = 2 To Sqr(S)
        If S Mod I = 0 Then
           cTmp.Add I
       End If
       I = I + 2
   Next I
 
Ret: Set FactorizeS = cTmp
End Function
 

Claro casimente es una mejora a las otras funciones pero es mas rapida  

Clarin ADO una S se le vas a cualquieras 

Y creo que es la mejor forma y si le cargas la ruta en modo de ejecucion te anda mas rapido...

El problema es que es para un cliente el; no va ha tener el vb6 instalado solo las dependencia de su exe y para el registro de los ocx y demas hay que copiarlas en el folder de windows la registro y listo, aunque como es algo comercial yo utilizo algun intalador para crear un setup que se encargue de todo..

Ha y porcirto no has intentado ussar el cristal report en vez del DataReport te da un mundo de ventajas y estetica..

Usa Ados para que te sea mas facil... y asi dejale abrir y cerrar conection al objeto 

Con una creo que se resumen todas

....
hay esta todo...

La intencion es la que cuenta jeje

Feliz cumple mano tu eres de los buenos....

Creo que deberias ir a el sub-foro de .net porque esto es vb6
busca como hacer consultas a la db o ados y usa el buscador te sorprenderas de lo que puedes encontrar

Edit: No me cague de risa por donde vivo nos es una buena idea esa palabra mejor digo "No me hagas reir que tengo el Labio partio"