Ms Access чтение из база данных - Visual Basic .NET

Формулировка задачи:

Посмотрите в код ест или нет ощибка. Данный код работает с базом данных. Если вводится часть предложения в текст бокс код выводит похожи и польный предложение . Если ест ощибка , то помогите его исправить В база данных есть таблица

Pоslaniya_(22-12-2017)

и у него два поля русский таджикский. я создаю типа корпус, который в нём находится две языка русский и таджикский. если вводится част предложение на

Textbox

, то код должен найти и вывести полный предложение из база данных.

Imports System.Data.OleDb
Imports ADODB
Imports Microsoft.Office.Interop
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Connect = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=Poslaniya.accdb")
        Connect.Open()
        If RadioButton1.Checked = True Then
            RadioButton2.Checked = False
            Dim Query As String = _
                "SELECT jumla_rus FROM Poslaniye_(23-12-2017) WHERE jumla_taj LIKE" & " *" & TextBox1.Text & "*"
            TextBox2.Text = Query
        ElseIf RadioButton2.Checked = True Then
            RadioButton1.Checked = False
            Dim query As String = _
                "SELECT jumla_taj FROM Poslaniye_(23-12-2017) WHERE jumla_rus LIKE" & " *" & TextBox1.Text & "*"
            TextBox2.Text = query
        End If
    End Sub
End Class

Решение задачи: «Ms Access чтение из база данных»

textual
                            Листинг программы 
                        

                            Imports System.Data.OleDb
 
Public Class Form1
    Friend oledbconn As OleDbConnection
    Friend olecommand As OleDbCommand
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        oledbconn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=Poslaniya.accdb")
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        oledbconn.Open()
        If RadioButton1.Checked Then
            Dim query As String = _
            "SELECT jumla_taj FROM [Poslaniye_(23-12-2017)] WHERE jumla_rus LIKE '%" & TextBox1.Text & "%'"
            olecommand = New OleDbCommand(query, oledbconn)
            TextBox2.Text = olecommand.ExecuteScalar
        End If
        If RadioButton2.Checked Then
            Dim query As String = _
            "SELECT jumla_rus FROM [Poslaniye_(23-12-2017)] WHERE jumla_taj LIKE '%" & TextBox1.Text & "%'"
            olecommand = New OleDbCommand(query, oledbconn)
            TextBox2.Text = olecommand.ExecuteScalar
        End If
        olecommand.Dispose()
        oledbconn.Close()
    End Sub
End Class
                        