VB-小問題請教

Private Sub Form_Load()

Call WorkBusying
strRST_SQL = "select PD002 from DGMOCPD where PD001 like '%停機%' and PD005=0  group by PD002 order by PD002"
Call SetRSTReadOnly(strRST_SQL)
Combo5.Clear

If Not (rst.BOF And rst.EOF) Then
    rst.MoveFirst
    Do While Not rst.EOF
        Combo5.AddItem CH_STR(rst.Fields(0).Value)
    rst.MoveNext
    Loop
End If
Combo5.ListIndex = 2

If Combo5.Text <> "" Then
  strRST_SQL = "select pf011 from dgmocpf inner join dgmocpd on pf010=pd002 and pd002='" & Combo5.Text & "'"
Call SetRSTReadOnly(strRST_SQL)
  If rst.RecordCount > 0 Then
      txt1(9).Text = Trim(rst.Fields(0).Value)
  Else
      txt1(9).Text = ""
  End If
Else
  txt1(9).Text = ""
End If
Call WorkNormal

End Sub

因為Combo5.text為可選擇的， txt1(9).Text默認為暗色不可選擇及修改，
根據Combo5.text選的值帶出相應的說明(txt1(9).Text)，
現在代碼執行之後Combo5.text選擇其他選項的時候txt1(9).Text沒有跟༐