功能好象没有实现呢。。。特别容易的问题

[hewenwen]

我设置一个ComboBox控件，用来选择用户名，当用户名和表中的相同时，将选择用户的统计信息显示在文本框里。。但结果并没有实现呢。。代码如下。。
ComboBox控件的名字为:cobname

Private Sub Form_Load()
'连接数据库
Dim sql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "provider=microsoft.jet.oledb.4.0;" _
& "data source=" & App.Path & "\water.mdb;" & "persist security info=false"
sql = "select sum(订购桶数)as 统计桶数, sum(订购票数) as 统计票数 from [客户信息]where 姓名= '" & cobname.Text & "'"
Set Text1.DataSource = rs
Text1.DataField = "统计桶数"
Set Text4.DataSource = rs
Text4.DataField = "统计票数"
rs.Open sql, conn
End Sub

[calligrapher]

代码写到ComboBox控件的click事件中