很抱歉，我是一个菜鸟，请大家直接帮我修改代码：
里面有combo1、command1、text1。我这样写代码（当然是错误的）：
Private Sub Form_Load()
Combo1.AddItem "张三"
Combo1.AddItem "李四 "
Select Case Text1.Text
Case "张三"
Label2.Caption = "广东人"
Case "李四"
Label2.Caption = "湖南人"
Case Else
Label1.Caption = "对不起，没有您查询的结果"
End Select
End Sub
修改：里面有Label1、combo1、command1、Label2。效果就是：我在combo1里选择张三，然后点击command1，Label2就会显示“广东人”
