Busqueda segun se escribe

[guillebomtrasmiti]

Private Sub BuscarFactura()
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

Try
com.CommandType = CommandType.Text
com.CommandText = "Select Plu,NomProducto,NomFamilia,NUnidades,Merma,Formato Compra,PrecioCoste,StockA,Stock1,Stock2,Stock3,Sto ck4,Stock5,Stock6,Stock7,Stock8,Stock9,Stock10,Min 1,Min2,Min3,Min4,Min5,Min6,Min7,Min8,Min9,Min10,Mi nA From Productos Where NomProducto LIKE '%" & TextBuscar.Text & "%'"

adapt.SelectCommand = com
adapt.Fill(setda, "Productos")


'aquí cargo el datasource y el datamenber del datagrid
DataGridView1.DataSource = setda
DataGridView1.DataMember = "Productos"
DataGridView1.Refresh()
Catch
MessageBox.Show("Compruebe sus datos", "Aviso GesDreamtPos")
End Try
End Sub

está así