Boa tarde,
O objeto retornado pelo método executeQuery(), no caso, será um ResultSet.
Uma forma de acessar os seus valores é através do método Next(), que permite mover o ponteiro por cada linha do Resultset.
Seu código poderia ficar assim então:
sSQL = "SELECT * FROM """Nome_De_Uma_Tabela"" "
Ds = oDeclaracao.executeQuery( sSQL )
While Ds.Next()
nLin = nLin + 1
'Exibir a String da 2ª coluna/campo na linha atual'
MsgBox Ds.getString(2)
'Interrompe o loop após passar a 5ª linha'
If nLin = 5 Then Exit Sub
Wend
Agora, se tiver dificuldade de adaptar o código, edite sua pergunta e inclua um banco de dados de exemplo. Fica mais fácil ajudar.
Atte