Trying to call the MS project in the Access Module, but I'm having trouble with the syntax. Basically I'm looping through both to compare the ID and if they match, update another cell.
Here's what I have so far
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Select * From ['Access'])
AllForms='MS Project'
While Not rs.EOF
  While Not AllForms.EOF
    If ('Access Column')=('MS Project Column') Then
    'Access Cell' = 'Ms Project Cell'  
    End if
   Allforms.MoveNext 
   Wend
rs.MoveNext
Wend
