Текстовые файлы и каталоги

Imports System.String
Imports System.Data.OleDb
 
Public Class Альтаир
    Dim DBFileName As String = Application.StartupPath & "\DataBase.mdb"
    Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DBFileName)
 
    Sub LoadINFO(StreetName As String, Number As String)
        Dim SqlCom = New OleDb.OleDbCommand(Format("SELECT * FROM [ДОМА] WHERE [Улица] = '{0}' AND [Дом] = '{1}'", StreetName, Number), Con)
        Con.Open()
        Using Reader As OleDbDataReader = SqlCom.ExecuteReader()
            Do While Reader.Read()
                                'Здесь по номеру колонки, в таблице из которой делали выборку, получаем данные
                Label32.Text = Reader.GetValue(0) 
                TextBox1.Text = Reader.GetValue(3) 
                TextBox2.Text = Reader.GetValue(4) 
                TextBox19.Text = Reader.GetValue(5) 
                TextBox3.Text = Reader.GetValue(6) 
                TextBox9.Text = Reader.GetValue(7) 
                TextBox7.Text = Reader.GetValue(8) 
                TextBox6.Text = Reader.GetValue(9) 
                TextBox5.Text = Reader.GetValue(10) 
                TextBox8.Text = Reader.GetValue(11) 
                TextBox4.Text = If(Reader.GetValue(12) = True, "Да", "Нет")
                TextBox10.Text = Reader.GetValue(13) 
            Loop
        End Using
        Con.Close()
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        LoadINFO(TextBox30.Text, TextBox31.Text)
    End Sub
End Class