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