怎么设置datacombo控件的text值为列表里的第一项？

Private Sub Combo1_Click()
Rs.Open "select * from bbb where seqno=" & Val(Combo1.Text) & "", conn, adOpenKeyset, adLockPessimistic

Text1.Text = Rs!Weight '这个是text1对应其中一个字段
Text2.Text = Rs!Height '这个是text2对应其中一个字段
'……………………………………

Rs.Close: Set Rs = Nothing
End Sub

在comboClick里按照combo的当前值去库里取值

程序一运行就用form_load