Código:
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