[Resolvido]Percorrer valores do campo

Pessoal, Boa tarde!!

Estou tentanto percorrer todos os valores de um determinado campo, porém, não está imprimindo todos os valores existentes, estou usando o código abaixo, na tabela exitem 737 registro unicos, e só imprime 199, oque está errado?

Código:

Dim Rst As Recordset
'Obtendo todos os registros da tabela
Set Rst = CurrentDb.OpenRecordset("SELECT * FROM tab_Principal")
'Percorrendo a tabela
Do While Not Rst.EOF

    Debug.Print Rst.Fields("CodSistema").Value
    valor = Rst.Fields("CodSistema").Value
    Rst.MoveNext
    
Loop
Set Rst = Nothing
            
End Sub

att; Sidney

Ola;

O seu trecho de código está bem, mas não está completo, abaixo a correção.

No entanto o limite de linhas na janela immediate do VBA são apenas 200.

Código:

Dim Rst As Recordset
'Obtendo todos os registros da tabela
Set Rst = CurrentDb.OpenRecordset("SELECT * FROM tab_Principal")
'Valida se tem registros
If Rst.RecordCount = 0 Then Exit Sub
'Se tiver registros percorre a tabela
  Rst.MoveLast
  Rst.MoveFirst
'Inicia o loop
Do While Not Rst.EOF
    Debug.Print Rst.Fields("CodSistema").Value
    valor = Rst.Fields("CodSistema").Value
    Rst.MoveNext
Loop
Rst.Close: Set Rst = Nothing

Bom dia! JPaulo,

Não sabia desse limite na janela de verificação, e obrigado pela melhoria no código.

att; Sidney

Obrigado pelo retorno.