Hola de nuevo, ahora os escribo porque no consigo sumar un textbox (ACobrar.Text)
con el valor de un campo de la base de datos ConectaBDD.Hres!precio
la definicion de precio en la tabla os la pongo en un pantalazo




 Public Sub Form_Open()

    Dim i As Integer, ValorCampo As Integer, ValorTotal As Integer

Me.Center

TablaVentas.Columns.count = 2
TablaVentas.header = 1
TablaVentas.Columns[0].text = "Producto"
TablaVentas.columns[0].Width = 200
TablaVentas.columns[1].text = "Precio"
TablaVentas.columns[1].Width = 50

ConectaBDD.Conectar
ConectaBDD.Hres = ConectaBDD.Hcon.Exec("Select * from Venta")
TablaVentas.rows.count = ConectaBDD.Hres.Count

For i = 0 To ConectaBDD.Hres.Count - 1
   TablaVentas[i, 0].text = ConectaBDD.Hres!Producto
   TablaVentas[i, 1].text = ConectaBDD.Hres!precio
   ValorCampo = Cint(ConectaBDD.Hres!precio)
   ACobrar.Text = ValorCampo + CInt(ACobrar.Text)
   ConectaBDD.Hres.MoveNext
Next

ConectaBDD.Hcon.Close

End

No uses textboxes para números. Usa Valuebox que para eso están.
En BD usa valores numéricos. Float si tienen decimales. no Varchar.

Saludos

===================
No podemos regresar

Sola shordi, he seguido tu consejo

For i = 0 To ConectaBDD.Hres.Count - 1
   TablaVentas[i, 0].text = ConectaBDD.Hres!Producto
   TablaVentas[i, 1].text = ConectaBDD.Hres!precio
   ValorTotal = ValorCampo
   ACobrar.Text = ConectaBDD.Hres!precio + ACobrar.Text
   ConectaBDD.Hres.MoveNext
Next

Ahora ACobrar.Text es de tipo valuebox

te pongo unos pantallazos para que veas



y este es el resultado del programa.



Dime que opinas, porfa

Sube tu proyecto. No es suficiente con esos trocitos de código que pones.
En el menu proyecto->crear->archivo fuente lo haces.

===================
No podemos regresar

Shordi te pongo el formulario completo así como la ejecución del mismo y me dices que piensas
' gambas class file

 Public Sub Form_Open()

    Dim i As Integer

Me.Center

TablaVentas.Columns.count = 2
TablaVentas.header = 1
TablaVentas.Columns[0].text = "Producto"
TablaVentas.columns[0].Width = 300
TablaVentas.columns[1].text = "Precio"
TablaVentas.columns[1].Width = 50

ConectaBDD.Conectar
ConectaBDD.Hres = ConectaBDD.Hcon.Exec("Select * from Venta")
TablaVentas.rows.count = ConectaBDD.Hres.Count

For i = 0 To ConectaBDD.Hres.Count - 1
   TablaVentas[i, 0].text = ConectaBDD.Hres!Producto
   TablaVentas[i, 1].text = ConectaBDD.Hres!precio
   ACobrar.Text = ConectaBDD.Hres!precio + ACobrar.Text
   ConectaBDD.Hres.MoveNext
Next

ConectaBDD.Hcon.Close

End

Public Sub buscaProducto()
  
  ConectaBDD.Conectar
  ConectaBDD.Hres = ConectaBDD.Hcon.Exec("SELECT * FROM `Productos` WHERE DESCRIPCION = '" & Upper(FormCafes.Consumicion) & "'")
  ConectaBDD.Hres = ConectaBDD.Hcon.Exec("insert into Venta values ('" & ConectaBDD.Hres!Descripcion & "','" & ConectaBDD.Hres!Precio & "')")
  ConectaBDD.Hcon.Close
  Form_Open()

End


 Public Sub Cafes_Click()
 
   FormCafes.ShowModal()
 
 End

Public Sub BtnSalir_Click()

  Me.Close

End

Public Sub BtnAdministracion_Click()

  Administracion.Visible = True

End

Es que no es lo mismo, No sé qué controles usas, no sé qué propiedades has puesto en cada uno, no sé qué tipo de conexión haces a la BD, etc. etc.
Sube un proyecto con ese formulario y ya te digo.

Saludos.

===================
No podemos regresar

shordi, lo siento pero no me deja mandarte el fuente, seme agota el tiempo de conexion, tiene que ser por mi conesion a internet pero no me deja, te puedo mandar posteados los formularios y la conesion a la BDD

¿Cuánto te ocupa el tar.gz?
Es muy raro eso que me dices, salvo que le hayas incluido imágenes o cosas por el estilo, un fuente comprimido no ocupa más de unas decenas de KB. Yo tengo un proyecto con más de 15.000 líneas de código y no llega a ocupar un megabyte.

De todas formas haz un proyecto nuevo, metes en él el formulario y los módulos que sean necesarios (conexión a la bd, etc) y subes el fuente de ese proyecto.

===================
No podemos regresar

A ver ahiora

Ya está le he quitado todas las imagenes y por fin cargó.