sqlstring = _
   " SELECT payed2.payroll, payed2.amount, " & _
      "payed2.type, payed2.page,payed1.datee, " & _
      "personal.email, personl.name, " & _
   " FROM  ((payed2 INNER JOIN payed1 " & _
      "ON payed2.page = payed1.page), " & _
      "INNER JOIN personal " & _

Private Sub Command2_Click()
Dim mydb As DAO.Database
Dim rest As Recordset
Dim temp As String
Dim mpayroll As String
Dim mpage As String
Dim sqlstring As String
Dim qdf As QueryDef
Dim reset As Recordset
Dim mmail

rest = "SELECT payed.payroll, personal.namee, payed.type, payed.amount, personal.email, payed.datee" &_
    " FROM payed inner join personal ON payed.payroll = personal.payroll" & _
    " WHERE payed.payroll = mpayroll and payed.datee = mdatee" & _
    " ORDER BY payed.payroll"

Option Compare Database
Private Sub Command0_Click()
Dim mydb As DAO.Database
Dim rst As DAO.Recordset