Try

            Dim command As New OleDbCommand
            command.Connection() = connection
            command.CommandText() = "SELECT * FROM Prodotti "

            Dim da As New OleDbDataAdapter(command)
            Dim ds As New DataSet()
            Dim dt As New DataTable
            da.Fill(ds)
            dt = ds.Tables(0)
            articoliDataGridView.DataSource() = dt
            articoliDataGridView.Visible() = True
            'visualizzalavoroDataGridView.Columns.Remove("ID")

        Catch


            MsgBox(Err.Description)

        End Try
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
        modificaartcoliLabel.Text = articoliDataGridView.CurrentRow.Cells("ID").Value

        modarticoliForm.Show()

        Me.Close()
    End Sub