Visual Basic - Asignar un recordset a un texto

Tengo el siguiente codigo:

comando.CommandText = "Select sum (pa_imp) from pagos"
Set comando.ActiveConnection = ConexionBase.Connection1
Set registro = comando.Execute
Set DataGrid3.DataSource = registro

Quiero que en lugar de enviarlo a la grilla lo tire a un campo de texto.

Primeramente debes poner un nombre para el campo resultante en la expresion SQL.

"Select sum (pa_imp) AS TOTAL from pagos"

para hacer referencia al mismo en el recordset resultante

Text1.text = registro("TOTAL")