Dim z As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + My.Application.Info.DirectoryPath & "\aedoasu.accdb") 'Устанавливаем соединение с базой данных.
        z.Open() 'Открываем соединение.
        Dim y As New OleDb.OleDbCommand("SELECT [Код раздела] FROM Разделы WHERE (Название='11111111')", z) 
        Dim x As String = y.ToString 'та самая переменная с результатом
        z.Close() 'Закрываем соединение