Создал все как положено
Dim cmd As New OleDBCommand(SelectSQL, con)
Dim adapter As New OleDBDataAdapter(cmd)
Dim Adres As New DataSet()
con.Open()
adapter.fill(Adres, "Adres")

Все это отлично работает.
Скажите пожалуйста, какое свойство и свойство какого объекта возвращает количество записей в таблице?

Не кто не знает?

Большое спасибо. Работает.