Visual Basic.NET - Consulta lluvia de ideas

Imports System.Data.OleDb

Public Class form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Conectarse()

    End Sub

    Public Sub Consultar(ByRef identificacion As String)

        cmd.Connection = conn

        cmd.CommandType = CommandType.Text

        If identificacion <> "" Then

            cmd.CommandText = "SELECT * FROM maestro WHERE GENERICO=" + identificacion

        Else

            MsgBox("No ha ingresado ningún código")

        End If

    End Sub

    Sub busqueda(ByRef texto As String)

        cmd.Connection = conn

        cmd.CommandType = CommandType.Text

        Dim vista As New DataView

        Dim muestra As New DataSet

        Dim consulta As String

        Dim adaptador As New OleDb.OleDbDataAdapter(consulta, conn)

        Try

            If texto <> "" Then

                consulta = "SELECT * FROM OC WHERE Producto_Generico=" + texto

                adaptador.Fill(muestra, "OC")

                DataGridView1.DataSource = muestra.Tables(0)

                DataGridView1.Columns(1).HeaderText = "Generico"

                DataGridView1.Columns.Item("ID").Visible = False

            End If

        Catch ex As Exception

            MessageBox.Show(ex.ToString)

        End Try

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim id As String

        Dim nombre As String

        Dim estado As String

        id = TextBox1.Text

        nombre = TextBox2.Text

        estado = TextBox3.Text

        Consultar(id)

        busqueda(id)

        dr = cmd.ExecuteReader()

        If dr.Read() Then

            Me.TextBox2.Text = dr.Item("nombre").ToString

            Me.TextBox3.Text = dr.Item("estado").ToString

            dr.Close()

        ElseIf MsgBox("No existe el codigo") Then

            dr.Close()

        Else

            Me.Close()

        End If

    End Sub

End Class