SoloCodigo

Desde luego que si, para desarrollar sistemas debes hacerlo en base a codigo ADO ya que es mas robusto que el control Data.
El Data solo es como para familiarisarse con el lenguaje VB almenos yo lo hice asi pero para aplicaciones reales tienes que utilizar el codigo ADO.
Ahora si no me equivoco tu buscas lo que yo llamo busqueda incremental.
De ser asi:
Entonces te debe servir la aplicacion que te dejo a continuacion
OJO: aqui uso el control DataGrid el control DBGrid no lo empleo.
Espero que te sirva...
Un saludo y suerte..
<<_GIOMAR_>>

Como veo que estas empleando codigo ADO entonces prueba con esto.
La solucion mas rapida y facil es usar instrucciones SQL para ello utilizaras de otro RecordSet donde almacenaras el numero de fatura y la cantidad de facturas que cada una de elllas tiene ¡Me parece que eso es lo que buscas!
Coloca el siguiente script donde deseas que se realice la operacion:
dim rs as new Adodb.RecordSet
set rs=new Adodb.RecordSet
set rs=NombreConexion.Execute("Select Num_Fac as Factura,count(Num_Fac) as Cantidad From factura where Num_Fac='" & txtNum_Fac & "' GROUP BY Num_Fac")
txtTotal.text=rs.fields(1).value
set rs=nothing
De esta manera obtendras la cantidad de facturas que tienes.
Ahora solo tendras que acomodar el codigo segun como estes realizando tu aplicacion.
Si sigues teniendo problemas puedes enviar tu aplicacion o el codigo para poder ayudarte mejor.
Un saludo y suerte
<<_GIOMAR_>>

Mira la idea es recorrer todo el datagrid por medio de un bucle en el cual debera estar un acumulador que ira sumando las cantidades del campo que desees para posteriormente mostrarlo en el textbox que deseas.
El codigo seria el siguiente:
Dim acumulador as integer
acumulador=0
For a=1 to Datagrid1.Row
      acumulador=acumulador+Datagrid1.Columns(IndiceDeColumna_a_Sumar).Value
End for
text1.text=acumulador
Ahora si el resultado es un valor numerico y deseas que se establesca un formato pues cambia la siguiente linea:
text1.text=acumulador
Por
text1.text=Format(acumulador, "standard")
Y nada mas
Suerte....
<<_GIOMAR_>>

Gracias Brroz el resultado es mejor del que esperaba inclusive me ayuda a simplificar el codigo para lo que estaba pensando en hacer.
Por lo que veo Chiaravel me gano en la pregunta pues tambien empezaba a tener esa duda.
Si cada vez que ejecute mi aplicacion registro el componente pues quizas con el tiempo el registro de ese componente se malogre por decirlo de alguna manera entonces la pregunta seria:
¿Hay alguna forma de porder preguntar al sistema si dicho componente ya se encuentra regitrado? para ovbiar el registro del mismo cada vez que se ejecute la aplicacion.
Pienso que seria bastante interesante conocer eso, se podrian evitar muchos problemas.
Hasta la proxima
Un saludo a todos y muchas gracias por todo....
!De verdad a buena hora decide entrar en este Foro¡

Bueno no se como esta cargando el FlexGrid, pero supongamos que utilizas un RecordSet para ello, entonces para llenar el FlexGrid debes utilizar algo parecido a esto:
'en el general
Dim cnFarma As New ADODB.Connection
Dim rsPrecios As New ADODB.Recordset

Private Sub Form_Load()
Set cnFarma = New ADODB.Connection
ruta = App.Path + "DB.mdb"
cnFarma.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + ruta
Set rsPrecios = New ADODB.Recordset
rsPrecios.CursorLocation = adUseClient
rsPrecios.Open "SELECT idarticulo,descripcion, precio  FROM articulo order by descripcion", cnFarma, adOpenStatic, adLockReadOnly
rsPrecios.MoveFirst
MSFlexGrid1.Rows = 1
MSFlexGrid1.Clear
MSFlexGrid1.FormatString = "<Codigo" & Space(20) & "|<Descripcion" & Space(20) & "|<Precio "
Do While Not rsPrecios.EOF
    MSFlexGrid1.AddItem rsPrecios.Fields(0).Value & vbTab & rsPrecios.Fields(1).Value & vbTab & rsPrecios.Fields(2).Value
    rsPrecios.MoveNext
Loop
End Sub

'y para trasladar los datos al datareport:
Private Sub cmdImprimir_Click()
On Error Resume Next
With dtrPrecios
    For fila = 1 To MSFlexGrid1.Rows - 1
        For columna = 1 To MSFlexGrid1.Cols - 1
            .Sections("Sección1").Controls("txtCodigo") = MSFlexGrid1.TextMatrix(fila, columna)
            .Sections("Sección1").Controls("txtDescripcion") = MSFlexGrid1.TextMatrix(fila, columna)
            .Sections("Sección1").Controls("txtPrecio") = MSFlexGrid1.TextMatrix(fila, columna)
        Next columna
    Next fila
    Set .DataSource = rsPrecios
    .Show
End With
End Sub
'al descargar el form
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
rsPrecios.Close
Set rsPrecios = Nothing
End Sub

Ahora si tienes en cuenta los nombres de los objetos en el DataReport todo este listo.
Espero que te ayude....
Suerte y un saludo
<<_GIOMAR_>>

Lo probe y resulta, la verdad no se como no se me ocurrio probar con el SHELL.
El motivo por el cual hice esta consulta era por que estoy comenzando a crear componentes (simples pero bueno recien comienzo) y notaba que seria un poco fastidioso que el usuario que quizas queria abrir la aplicaion tubiera que hacer todo el proceso del registro como copiarlo a la carpeta SYSTEM o SYSTEM32 y ejecutar el comando de registro entonce se me ocurrio que el mismo programa lo haga pero el problema ahora es el SITEMA OPERATIVO como bien sabes las rutas de las carpetas donde se debe copiar el OCX o DLL cambian segun el sistema operativo.
Bueno parte de este inconveniente lo tengo resuelto ya que puedo saber por codigo que sistema operativo estoy uzando pero lo que desconozco es la ruta que tendria que especificar en cada uno para copiar el archivo y hacer el registro propiamente dicho.
Osea me explico se que para Win2000 la ruta es "C:WINNTsystem32....dll" o "C:WINNTsystem....dll" porque estoy trabajando con este sistema péro ¿De los demas desconozco?.
Ahora no se si me podrias facilitar esa informacion quizas tienes un listado ya perparado o estas mas informado sobre eso.
A si estas interezado puedo pasarte el codigo de como averiguar el sistema operativo lo pidemelo y te lo envio al instanste.
Saludos...
Y gracias  por la ayuda anterior.
<Giomar>

Seria bueno si alguien proporciona mas informacion sobre ello

Bueno eso no era lo que buscaba de todas maneras gracias!

En realidad solo en tu base de datos deben tener la tabla que indicas y como ya te lo indico Brroz por medio de instruccion SQL obtendras la informacion que requieres.

Solo basta con poner el evento LostFocus del TextBox que deseas el siguiente codigo:
text1.text=format(text1.text,"standard")
y eso hara que al perder el foco se asigne un formato a lo escrito en el TextBox.
ejm:
Si en el TextBox escribiste 25 o 25.5 entonces el nuevo resultado sera 25.00 o 25.50, el formato general que se establece es el siguiente 999,999.99
Espero que sea lo que buscabas.
Saludos

Te antemano agradezco tu atencion.
He desarrollado diferentes aplicaciones en visual basic pero ahora busco la manera de que mis aplicaciones puedan iniciarse junto con windows.
me han dicho que hay varias formas de hacerlo pero el problema es que segun lo que me explican lo veo muy complicado y lo que busco en una forma facil, sencilla y sobretodo segura de poder acerlo.
Se que en este foro debe haber alguien que conoce esa forma de hacerlo  y le agradeceria mucho que me ayude a aprenderlo.
Un Saludo...
y nuevamente gracias.

He notado un problema al trabajar con SQL, por ejemplo he echo una aplicacion donde realizo una busqueda incremental de datos a una tabla algo sencillo si pero la dificultad que encuentro es al colocar en mi TextBox un apostrofe ( ' ).
Lo que veo que pasa es de que como VB concatena sus variables asi '" & objeto & "' de alguna manera lo confunde, bueno no se con exactitud.
Si alguien sabe como puedo solucionar esto por favor haganmelo conocer.
Ademas voy a dejar la aplicacion con el problema.
Saudos y de antemano GRACIAS.
Giomar...

Si no me equivoco todos los sistemas operativos tiene el archvo WIN.INI( bueno solo seria cuestion de buscarlo)
Al abrir el archivo encontraras un linea que dice
LOAD=...
Donde estan los ... debes indicar la ruta del archivo ejecutable y nada mas.
Otra forma es colocando un acceso directo en el carpeta INICIO y obtendras el mismo resultado.
Saludos...