Public SqlCom_Max As OleDb.OleDbCommand 
Public DT As New Data.DataTable ' Таблица для хранения результатов запроса
Public DA As OleDb.OleDbDataAdapter
Dim MaxNumPensCert As Integer = 0
SqlCom_Max = New OleDb.OleDbCommand("SELECT MAX(NumPensCertificate) As MaxNumPensCert", Con)
' найти MAX значение в столбце
SqlCom_Max.ExecuteNonQuery()
1.	Как использовать результат выполненного запроса?
2.	 Если текст корректно записан
SELECT MAX(NumPensCertificate) As MaxNumPensCert
3.	Переменная MaxNumPensCert вначале и в тексте запроса – это разные переменные.
MsgBox("MaxNumPensCert = " + CStr(MaxNumPensCert))
 выдано 1111111111111 - 13 единиц, что НЕПРАВИЛЬНО.
 нет такого значения в столбце.