Imports System.Data.SqlClient


Public Class Form1

    Dim objConnection As New SqlConnection ("stringaconnessione")      
    Dim objDataAdapter As New SqlDataAdapter()
    Dim objDataSet As New DataSet()
    Dim bs As New BindingSource

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

        objDataAdapter.SelectCommand = New SqlCommand()
        objDataAdapter.SelectCommand.Connection = objConnection
        objDataAdapter.SelectCommand.CommandText = "SELECT (di diverse query nel database)..."


        objDataAdapter.SelectCommand.CommandType = CommandType.Text

        Try
            objConnection.Open()
        Catch ex As SqlException
            MsgBox("Errore di connessione a server", , ex.Message)
        End Try


        objDataAdapter.Fill(objDataSet, "NomeDiUnaTabella") 'Sembra che se non inserisco almeno una tabella presente nella query non popola

        objConnection.Close()

        DataGridView1.AutoGenerateColumns = True
        DataGridView1.DataSource = objDataSet
        DataGridView1.DataMember = "NomeDiUnaTabella"


       
        objDataAdapter = Nothing
        objConnection = Nothing


    End Sub

    

 Private Sub CercaArticoloToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CercaArticoloToolStripMenuItem.Click
       
        Dim filter = InputBox("inserisci codice articolo o parte di esso")
        bs.DataSource = objDataSet
        bs.Filter = "Codart LIKE '%" & filter.Trim & "%'"


    End Sub

End Class