Вывод в TextBox определенной информации, взятой из подключенной базы данных access

        Dim Form2 As New Form2
        Form2.Show()

Form2.Close

Public Class frmMain
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim frm1 As New frm1
        frm1.Show()
    End Sub
 
    Private Sub frmMain_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        Con.Close()
    End Sub
 
    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ConnectionDB()
    End Sub
End Class

Public Class frm1
    Private Sub frm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SQLCMD()
    End Sub
 
    Sub SQLCMD()
        DT.Clear()
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM [сведения о рождаемости] WHERE [Фамилия] LIKE '%" & TextBox1.Text & "%'", Con)
        SqlCom.ExecuteNonQuery()
        DA = New OleDb.OleDbDataAdapter(SqlCom)
        DA.Fill(DT)
        DataGridView1.DataSource = DT
    End Sub
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        SQLCMD()
    End Sub
End Class

Module mdlConnect
    Public Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\БД.mdb") ' Переменная для подключения базы
    Public SqlCom As OleDb.OleDbCommand
    Public DT As New Data.DataTable
    Public DA As OleDb.OleDbDataAdapter
 
    Sub ConnectionDB()
        Con.Open()
    End Sub
 
End Module