Private Sub Encuentra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Encuentra.Click

        con = New MySqlConnection

        con.ConnectionString = "server = 192.168.1.151;" & "user = ****;" & "password = ************;" & "database = rocar;"

        Try

            con.Open()

            consulta = "select ID,DESCRIPCION,PRECIO,EXISTENCIA from productos where MATCH (descripcion) AGAINST ('" & buscar_palabra_txt.Text & "')"

            comando.Connection = con
            comando.CommandText = consulta

            adaptador.SelectCommand = comando

            adaptador.Fill(datos)

            consulta_dvg.DataSource = datos

            consulta_dvg.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells

        Catch ex As Exception

            MsgBox("Error de Conexion: " & ex.Message)

        Finally

            con.Dispose()

        End Try


    End Sub