VBA - get max value from Access using SQL

Question

i need help please with get the max value from a col and store it at long variubale my VBA code is:

Private Sub ADOFromExcelToAccessDstribute()
Dim dstibute_I