ник: Василий
я видел, все у меня получилось, большое спасибо, пытаюсь другие методы освоить 
А подскажите если в форме имеется подчиненная форма, ее в тот же запрос прописывать нужно? или можно другой записать? например :
dim flightsZap As Object
Set flightsZap = CurrentDb.OpenRecordset("SELECT JS, Flights FROM Companies")
или добавлять к companies?
Dim Companies As Object
Set Companies = CurrentDb.OpenRecordset("SELECT Company1, Project FROM Companies")