Dim AppaltiDaPt As OleDb.OleDbDataAdapter Dim AppaltiBindingSource As New BindingSource() AppaltiDaPt = New OleDb.OleDbDataAdapter(sql, Dbazienda) 'AppaltiDaPt.SelectCommand.CommandText = "SELECT * FROM Appalti" AppaltiDaPt.Fill(MyDataSet, "Appalti") 'Nella seconda riga viene usato per riempire il dataset con l'istruzione SQL 'Si crea la BindingSource AppaltiBindingSource = New BindingSource() AppaltiBindingSource.DataSource = MyDataSet AppaltiBindingSource.DataMember = "Appalti" AppaltiBindingSource.AddNew() |