vb中，窗口建有两个combo控件，combo2的代码写完，剪切后放进txt文件中

Private Sub Combo1_Change()
Call changetext
End Sub

Private Sub Combo1_Click()
Call changetext
End Sub
Private Sub changetext()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & App.Path & "\天气及措施.xls"
sql = "Select 措施 FROM [sheet1$] where 天气='" & Combo1.Text & "'"
rs.Open sql, cnn
If Not rs.EOF Or rs.BOF Then
Text1.Text = rs.Fields(0).Value
End If
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub
Private Sub Form_Load()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & App.Path & "\天气及措施.xls"
sql = "Select 天气 FROM [sheet1$]"
rs.Open sql, cnn
Do While Not rs.EOF Or rs.BOF
Combo1.AddItem rs.Fields(0).Value
rs.MoveNext
Loop
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
Combo1.Text = Combo1.List(0)
End Sub