Thanks Ridders
Changed to below but still not updating the record may have to find another way of doing this.
strSQL = "SELECT Log.EmpName, Log.DateReq, Log.MGR_Comments, Log.Approved, Log.Declined, Log.Cancelled" _
& "FROM Log " _
& "WHERE (((Log.EmpName)= '" & [Forms]![Log_MyTeam]![EmpName] & "') AND ((Log.DateReq)= #" & [Forms]![Log_MyTeam]![DateReq] & "#));"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
rs.Edit
rs!Approved = True
rs!MGR_Comments = Me.MGRComments
rs.Update