It should be:
Code:
Me.Email.Value = DLookup("Email", "tblAuthor_Info", "[Author_Fname] = " & Chr(34) & Left(Forms![Submit_RFP]!Author, Instr(1, Forms![Submit_RFP]!Author, " ") -1) & Chr(34) & " AND [Author_LName] = " & Chr(34) & Mid(Forms![Submit_RFP]!Author, Instr(1, Forms![Submit_RFP]!Author, " ") +1) & Chr(34))
Here's the same but formatted here a different way to be easier to look at:
Code:
Me.Email.Value = DLookup("Email", "tblAuthor_Info", "[Author_Fname] = " & Chr(34) & _
Left(Forms![Submit_RFP]!Author, Instr(1, Forms![Submit_RFP]!Author, " ") -1) & _
Chr(34) & " AND [Author_LName] = " & Chr(34) & _
Mid(Forms![Submit_RFP]!Author, Instr(1, Forms![Submit_RFP]!Author, " ") +1) & Chr(34))