Private Sub ComboBox1_Change()
On Error Resume Next
Me.TextBox1 = Me.ComboBox1.Column(1)
Me.TextBox2 = Me.ComboBox1.Column(2)
Me.TextBox3 = Me.ComboBox1.Column(3)
Me.TextBox4 = Me.ComboBox1.Column(4)
Me.TextBox5 = Me.ComboBox1.Column(5)
Me.TextBox6 = Me.ComboBox1.Column(6)
Me.TextBox7 = Me.ComboBox1.Column(7)
Me.TextBox8 = Me.ComboBox1.Column(8)
End Sub