Hepsini seçtirmek için

Private Sub B_Change()

LB_A.Requery
Dim Sayac As Integer
For Sayac = 0 To Me.LB_A.ListCount
    Me.LB_A.Selected(Sayac) = True
Next Sayac

End Sub

Bunu kullana bilirsiniz