Siempre la mejor manera es trabajar con métodos o funciones.
En tu caso yo aria algo así.
Crearía una función de tipo datatable que me devuelva los datos del filtro.
Código vb.net:
Ver originalPublic Function Buscar(filtro As String) As DataTable
Dim dt As New DataTable()
Dim conexion As New MySqlConnection(ConfigurationManager.ConnectionStrings("EDMACminConnectionString").ToString())
Dim consulta As String = "SELECT idare, fecare, codare, nomare from minare
WHERE codare = @codare
ORDER BY codare"
Dim comando As New MySqlCommand(consulta, conexion)
comando.Parameters.AddWithValue("@codare", filtro)
Dim adap As New MySqlDataAdapter(comando)
adap.Fill(dt)
Return dt
End Function
Ahora en el evento del botón que utilizas para buscar pondrías lo siguiente.
Código vb.net:
Ver originalDim dt As DataTable = Buscar(textBox1.Text)'envias el dato a buscar
'si encuentra el dato cargo los datos
If dt.Rows.Count > 0 Then
GridView1.DataSource = dt
GridView1.DataBind()
else
MessageBox.Show("No Existe Registro")
End If
Eso seria todo como veras asi el codigo queda mas ordenado y lo podes reutilizar las veces que queras.
NOTA: No he probado el código no tengo ningún editor a la mano pero creo que no te dara ningún problema si no avisas.