The Dlookup funtion should work for you.
If Project is Text:
Me.[Project Description] = DLookup("[Project Description]" , "Programs", "[Project] = " & Me.Project & """)
If Project is Numeric:
Me.[Project Description] = DLookup("[Project Description]" , "Programs", "[Project] = " & Me.Project)