Can someone please help me to find the errors in my code. I've used the following code:
Private Function AddAllToList(C As Control, Id As Long, Row As _Long, Col As Long, Code As Integer) As Variant
Static DB As DAO.Database, RS As DAO.Recordset
Dim PRm As Parameter
Dim Qdf As QueryDef
'...