Private Sub Material_AfterUpdate()
Dim rstSet As Recordset
Dim dbsCDB As Database
Set dbsCDB = CurrentDb
Set rstSet = dbsCDB.OpenRecordset("Z_Display_Biotest_Identificater", dbOpenTable)
Identific.SetFocus
Identific.Text = rstSet![Identifier]
End Sub

SELECT Biotest.Identifier
FROM Biotest INNER JOIN Sick_list ON Biotest.Sick_list_code = Sick_list.Sick_list_code
GROUP BY Biotest.Identifier, Sick_list.[Card code], Sick_list.Material_number
HAVING (((Sick_list.[Card code])=[Forms]![F_Card_Patient]![Card_code]) AND ((Sick_list.Material_number)=[Forms]![F_Card_Patient]![Material]));

Далее в коде:
Dim Crdb As Database, rst As Recordset
Set Crdb = CurrentDb
 Dim TableName As String
 TableName = "Q"
    Set rst = Crdb.OpenRecordset(TableName, dbOpenTable)