command.CommandText "SELECT Name ,Surname, MAX(points) FROM table1 , table2 WHERE table1.codetbl1 '" & table2.codetblname & "';"
command.CommandText "SELECT Name ,Surname, MAX(points) FROM table1 , table2 WHERE table1.codetbl1 table2.codetblname GROUP BY Name,Surname;"