A ver si es algo así lo que tienes:
Código:
Dim ADOcommand As ADODB.Command
Dim rsetp As ADODB.Recordset
Set ADOcommand = CreateObject("ADODB.Command")
Set rsetp = CreateObject("ADODB.Recordset")
With AdoCommand
.ActiveConnection = cn 'Indicar la conexión activa para el objeto ADODB.Command.
.CommandTimeout = 600
.CommandText = "select DescripcionConcep from configuraciones where idempresa=1"
Set rsetp = .Execute 'Ejecutar la consulta.
End With
Do While rsetp.EOF = False
MsgBox rsetp(0)
rsetp.MoveNext
Loop
rsetp.Close
Set rsetp = Nothing
Set ADOcommand = Nothing