Private Sub [b]ComboBox1_Click[/b]()
TextBox2 = ComboBox1.Value
Me.ListBox1.Clear
For L = 0 To UBound(TabResult, 2)
If TabResult(1, L) = CDate(ComboBox1.Value) Then
Me.ListBox1.AddItem TabResult(0, L)
For I = 1 To 8
Me.ListBox1.Column(I, Me.ListBox1.ListCount - 1) = TabResult(I, L)
Next
End If
Next
End Sub