Vider une listbox en VB.NET

Bonjour et Merci de votre attention que vous porterez à mon égard !
Je suis novice en VB.NET sur Visual Basic et j’aimerai avoir votre aide sur ce problème svp !





Voici afficher les éléments liés à LOUHOU de la listbox1 dans la listbox2(Orange,Galette,Safou,Pulpe).
But : A chaque Double Clique sur un Nom de la Listbox1, J’aimerai afficher les marchandises qui lui sont liées puis, lors d’un nouveau Double clique sur un Nom, j’aimerai vider le contenu précédant de la listbox2, puis afficher les marchandises liées à ce nouveau Nom Double Cliqué.
Problème:
J’ai cherché sans trouver, mais j’ai comme même réussi à afficher les marchandises liées au Nom cliqué à chaque fois. Mais quand je clique encore sur un autre ou sur le même nom, les marchandises s’accumulent dans la listbox2,alors que je dois d'abord vider la listbox2 avant d'afficher les marchadises consernées par le nom Double cliqué.

Tentative: J'ai essayé de vider la listbox2 et j'ai obtenu une erreur disant que: DataSource is set. Donc je ne peux pas vider la listbox2 tant qu'il l'est. Svp j'en ai mare, aidez-moi. Alors que puis-je faire????
Voici mon Code en VB.NET :

Imports System
Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Private ObjetConnection As OleDbConnection
    Private ObjetCommand As OleDbCommand
    Private ObjetDataAdapter As OleDbDataAdapter
    Private ObjetDataSet As New DataSet
    Private N As Integer
    Private M As String
    Private strSql As String
    Private ObjetDataTable As DataTable
    Private ObjetDataRow As DataRow
    Private RowNumber As Integer
    Private strConn As String
    Private ObjetCommandBuilder As OleDbCommandBuilder

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\logiciel de reseaux pour TP\BaseActuelessai.mdb;"
        strSql = "SELECT TableInfos .* FROM TableInfos"
        ObjetConnection = New OleDbConnection
        ObjetConnection.ConnectionString = strConn
        ObjetConnection.Open()
        ObjetCommand = New OleDbCommand(strSql)
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
        ObjetCommand.Connection() = ObjetConnection
        ObjetDataAdapter.Fill(ObjetDataSet, "TableInfos")
        ListBox1.DataSource = ObjetDataSet.Tables("TableInfos")
        ListBox1.DisplayMember = "Nom"
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        ListBox1.DisplayMember = "Nom"
        ListBox1.ValueMember = "NumeroInterne"
        ListBox1.DataSource = ObjetDataSet.Tables("TableInfos")
        RowNumber = ListBox1.SelectedValue
    End Sub

    Private Sub ListBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
       
        strSql = "SELECT marchandises FROM ObjetsAchetés WHERE NombredAchat=" & ListBox1.SelectedValue & ""
        
        ObjetConnection = New OleDbConnection
        ObjetConnection.ConnectionString = strConn
        ObjetConnection.Open()
        ObjetCommand = New OleDbCommand(strSql)
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
        ObjetCommand.Connection() = ObjetConnection
        ObjetDataAdapter.Fill(ObjetDataSet, "ObjetsAchetés")
        ListBox2.DataSource = ObjetDataSet.Tables("ObjetsAchetés")
        ListBox2.DisplayMember = "marchandises"
    End Sub
End Class

Merci Beaucoup !