SoloCodigo

ESTE ES EL CODIGO--

private sub  txtho_click()
Dim s As String
   s = " SELECT SUM(kilos)AS kilos,num_recepgan FROM Recepcion_ganado where num_recephan=' " & txtho.Text & " '"
   s=txtho.text
End Sub
PERO NO LO MUESTRA POR EL TXTho QUE ES LO QUE NECESITO...
 QUIEN PUEDE AYUDARME A ACLARAR EL TEMA PLEASE---

Buena noches, la verdad, necesito que alguien me ayude a aclarar porque  se me produce el error al sumar kilos en la base de datos.

Select SUM(kilos) as kilos
from Recepcion_ganado
where num_recepgan=1



lo he intentado pero me envia un error en el SUM, como se muestra en la imagen que adjunto.
Desde ya muchas gracias.

Lindo precioso... lo solucioné... muchas gracias... me ayudaste a encender la ampolleta.. jhajajajja
 toy feliz feliz...
 sabes lo que era¿?¡ 


Private Sub txtRut_Change()

    If txtRut.Text = "" Then
        txtdigito.Text = " ?[/b]" ' Esto era.. simplemente dejar el campo de texto "" asi... vacio...
    End If
    Dim CAL1, CAL2, CAL3 As Integer
    Dim I As Long
        CAL3 = 2
    For I = 0 To Len(txtRut) - 1
         If Left(Right(txtRut, I + 1), 1) <> "." Then
        CAL1 = CAL1 + Left(Right(txtRut, I + 1), 1) * CAL3
        CAL2 = CAL1 Mod 11

            Select Case CAL2
                 Case 0
                  txtdigito.Text = "0"
                 Case 1
                  txtdigito.Text = "K"
                 Case Else
                  txtdigito.Text = 11 - CAL2
            End Select

            If CAL3 = 7 Then
                CAL3 = 2
            Else
                CAL3 = CAL3 + 1
            End If
        End If
    Next
End Sub



 como no lo vi antes... ... muchas gracias.... eres un sol...

ahi es donde me envia el error

PORQUE PESADA¿? NO ENTENDÍ..
 LO UNICO QUE PEDIA ERA UN POCO DE AYUDA...
 VALE... QUE ESTES BIEN

ES necesario agregar ese codigo donde dices que haces la conexion a la base de datos, siendo que ya la tengo y funciona o si no no me recataria los datos en el primer datagrid...

 ahi tengo la duda... 
vale gracias por todo :=)

Buenas tardes, junto con saludarles, quisiera pedirles un poco de ayuda.
 Tengo el siguiente codigo, que funciona bastante bien, pero hay un punto en el que envía un DESBORDAMIENTO ... quien me puede ayudar a resolver esto porfis... se agradece.

Private Sub txtRut_Change()
    If txtRut.Text = "" Then
     txtDigito.Text = ""
    End If
    Dim Vari1, Vari2, Vari3 As Integer
    Vari3 = 2
    For I = 0 To Len(txtRut) - 1 ' en esta linea envía el DESBORDAMIENTO!.
     If Left(Right(txtRut, I + 1), 1) <> "." Then
      Vari1 = Vari1 + Left(Right(txtRut, I + 1), 1) * Vari3
      Vari2 = Vari1 Mod 11
      Select Case Vari2
       Case 0
        txtDigito.Text = "0"
       Case 1
        txtDigito.Text = "K"
       Case Else
        txtDigito.Text = 11 - Vari2
      End Select
      If Vari3 = 7 Then
       Vari3 = 2
      Else
       Vari3 = Vari3 + 1
      End If
     End If
    Next
End Sub

QUISIERA SABER SI ME PUEDE AYUDAR, NECESITO PASAR DATOS DE UN DATAGRID A OTRO, HE BUSCADO, Y LEIDO MUCHO, PERO LA VERDAD NO ENCUENTRO NADA QUE ME AYUDE A SOLUCIONAR MI PROBLEMA. sERÁ POSIBLE QUE ALGUIEN ME AYUDE¿?¿-
mUCHAS GRACIAS