关于Combobo控件

Question

使用combo1.itemindex获得选择的序号使用change事件，呵呵

Answer 1

TO:MailbombDim cn As ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub Form_Load()
Set cn = New ADODB.Connection
With cn
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\wideband\data\宽带.mdb;Persist Security Info=False"
    .Open
End With
Set rs = New ADODB.Recordset
With rs
     .CursorLocation = adUseClient
     .CursorType = adOpenDynamic
     .Open "select * from wideband_busin", cn
End With
Combo1.AddItem "李明"
Combo1.AddItem "李共"
End Sub
Private Sub Combo1_Change()
Dim aa As String
Dim cn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
If Combo1.Text = Empty Then
  MsgBox "请选择关键字", vbOKOnly + vbInformation, "提示"
Combo1.SetFocus
Exit Sub
End If
If Combo1.Text = "李明" Then
aa = "select * from wideband_busin where Con_Name='" & Combo1.ItemData(0) & "'"
End If
If Combo1.Text = "李共" Then
aa = "select * from wideband_busin where Con_Name='" & Combo1.ItemData(1) & "'"
End IfSet cn1 = New ADODB.Connection
With cn1
     .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\wideband\data\宽带.mdb;Persist Security Info=False"
     .Open
End With
Set rs1 = New ADODB.Recordset
rs1.Open aa, cn1, adOpenDynamic
end sub 
请问是这样吗?谢谢