Cómo mostrar el resultado de un select en un textbox

[wolfxmen]

Gracias por tu apoyo Avellaneda, te voy a colocar todo el código que he escrito para que te des una idea de como esta:

Private Sub cmdpago_Click()
Set rssuma = New ADODB.Recordset

With rssuma
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open ("select idpago, detallepago.idrubros, sum(monto)as total from detallepago, rubros where detallepago.idpago= '" & frmpagos.txtidpago.Text & "' and detallepago.idrubros = rubros.idrubros group by idpago")
If Not rssuma.EOF Then rssuma.MoveFirst
While Not rssuma.EOF
' aqui accedes al recordset y sacas los campos q te interesen
monto = rssuma!total
frmpagos.txttotal.Text = rssuma!total
Wend

End With

End Sub

si coloco solo el frmpagos.txttotal.text = rssuma!total sin el codigo de If Not rssuma.EOF Then rssuma.MoveFirst
While Not rssuma.EOF
, me da un mesaje de error el cual dice: Error 3021 en tiempo de ejecución:
el valor de BOF o de EOF es true, o el actual registro se eliminó, la operación solicitada requiere un registro actual.

Cabe mencionar que total no es un campo de mi tabla no se si eso este dando problema?

El evento que mostrará el contenido del select en el textbox es un boton al que el usuario hará click, pero por el momento si hago click en el boton no realiza ninguna acción, ni siquiera me da un mensaje de error.....

Gracias por tu ayuda en este caso.