I am not sure what your PK is for your table. You will need to replace PK with the field name for the PK in oyur table.
Code:
Dim lngPK As Long
Dim strName As String
Dim strCriteria As String
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT [Last Name], Email FROM T_Inspectors;")
strCriteria = "[Employee]= '" & rs![Last Name] & "'"
rs.FindFirst strCriteria
If Not rs.EOF Then
lngPK = rs![PK]
strName = rs![Last Name]
MsgBox "Prime Key: " & lngKey & " Name: " & strName
Else
MsgBox "No record Found"
End If
DoCmd.OpenReport "R_WeeklyDispatch_Today", acViewPreview, , "[Employee]='" & rs![Last Name] & "'", acWindowNormal
rs.Close
Set rs = Nothing