Combox簡單問題一問(編號：5132)

Sub INDATA()
For I = 0 To trade.RecordCount - 1　　　　
　　　　　　　　　　　　　　　　
　　 S=Left(trade(0)&trade(1))　
　　　　Combo1.AddItem S　
　　　　trade.MoveNext　　　　
　 Next
　End sub

Private Sub Combo1_Click(Index As Integer)
　　 S1 = Trim(Left(cboField(1).Text, 6))
　　 cboField(1).Text = S1
　End sub

當我選取ComBo1中的某一項時為何資料沒有
立即顯示在ComBo1中
win95+vb5.0+sp3+Access97