Получить максимальное значения поля в БД - VB

Формулировка задачи:

Добрый день, знатоки! Подскажите пожалуйста, как мне реализовать следующую задачу: В таблице Access есть таблица Table. Там есть поле Pole1. С помощью запроса (использую ЭУД Data потому что прога не большая, и она вполне выполняет все нужные действия и его свойств вполне достаточно)?

                    Листинг программы
                
    dtaPole1.RecordSource = "SELECT Max(Pole1) FROM Table"
    dtaPole1.Refresh

получаю максимальное значение из поля Pole1. Вот теперь, как это полученное значение присвоить метке Label1 ? Если свойства DataSourse установить dtaPole1, а DataField установить Pole1 в окне свойств, то VB ругается. Подскажите как правильно? P.S. тут у меня идея вот в чем. Нужно получить максимальное значение из этого поля. За тем при добавлении новой записи, к полученному максимальному значению прибавить 1 и нужно чтобы при сохранении записи, это новое значение сохранилось в этом поле (Pole1) Всем спасибо за отклик

Решение задачи: «Получить максимальное значения поля в БД»

textual
                            Листинг программы 
                        
 
                        
                          
                    
dtaMax.DatabaseName = App.Path & "\Test.mdb"
dtaMax.RecordSource = "Table1"
dtaMax.RecordSource = "SELECT DISTINCTROW Max([Table1].[Pole1]) AS [Max - Pole1] FROM Table1"
dtaMax.Refresh
dtaMax.Recordset.MoveLast
lblMax_Pole1.Caption = dtaMax.Recordset.Fields("Max - Pole1").Value