ник: Василий
этой строчкой он вырывает из запроса company последнюю компанию и Project соответственно, а мне нужен весь список, и в последней строчке предположим разместить тот же recordcount пробую так:
Dim countrow As Long
Company.MoveLast
countrow = Company.RecordCount
.Range("B" & countrow) = "20"
на всякий случай прикрепил файл, может я по кривому объясняю... 