SELECT p.id_pat, p.birthday, p.address, p.phone, p.note FROM dbo.pat p

Private Sub Form_Load()
    Set cdb = CurrentDb
    Set qdf = cdb.CreateQueryDef("")
    qdf.Connect = "ODBC;" & _
            "Driver={SQL Server Native Client 11.0};" & _
            "Server=SQL;" & _
            "Database=PPPPPPP; UID=PPP; PWD=PPPPPPPP;" & _
            "Trusted_Connection=yes;"
    qdf.SQL = "EXEC proc_selectpat"
        
        Me.RecordSource = "??????????"
        
    qdf.ReturnsRecords = False
    qdf.Execute dbFailOnError
    Set qdf = Nothing
    Set cdb = Nothing
End Sub

EXEC sproc_MySproc

Dim qdf As QueryDef
Dim frm As Form
' Set database variable to current database.
Set dbsReport = CurrentDb
Set frm = Form_'YOUR FORM NAME' 
Open QueryDef object.
Set qdf = dbsReport.QueryDefs("sproc_MySproc")
Dim rstReport As DAO.Recordset
qdf.SQL = "EXEC sproc_mySproc " & 'YOUR PARAM HERE'
qdf.ReturnsRecords = True
 '  Open Recordset object.
Set rstReport = qdf.OpenRecordset()
rstReport.MoveFirst
Form_'YOUR FORM NAME' .RecordSource = "sproc_mySproc"