Private Sub ComboBox1_Change()
Dim x As Integer
x = ComboBox1.ListIndex
If Not IsEmpty(ComboBox1.List(x, 3)) Then TextBox1 = CDate(ComboBox1.List(x, 3))
If Not IsEmpty(ComboBox1.List(x, 4)) Then TextBox2 = CDate(ComboBox1.List(x, 4))
If Not IsEmpty(ComboBox1.List(x, 5)) Then TextBox3 = CDate(ComboBox1.List(x, 5))
End Sub