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---

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