Es que debes hacer un bucle que recorra todos los datos del Recordset. Por ejemplo:
Código vb:
Ver originalDo While Not RecDB.EOF 'Se ejecuta mientras haya registros
MsgBox RecDB.Fields("id") 'Mostrar campo id del registro actual
MsgBox RecDB.Fields("name") 'Mostrar campo name del registro actual
RecDB.MoveNext 'Pasar al siguiente registro
Loop