VB中listBox的问题！（不是.net）

[ProfoundKing]

我想单击listBox的一项 使得txtNub cboType dtpEsp txtReason获得对应数据库里的记录！

Private Sub Form_Load()
Call getCn
Dim SQL As String
SQL = "select * from [异动记录]"
Set rs = New ADODB.Recordset
rs.Open SQL, cn, adOpenKeyset, adLockOptimistic
Do Until rs.EOF
libNub.AddItem rs("学号")
rs.MoveNext
Loop
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst
showing
End If
End Sub
Private Sub showing()
txtNub = rs("学号")
cboType = rs("类型")
dtpEsp = rs("日期")
txtReason = rs("原因")
End Sub

Private Sub libNub_Click()
Call showing
End Sub

[东方之珠]

出现什么问题？......

[Tiger_Zhao]

Private Sub showing()
    rs.Find "学号='" & libNub.Text & "'", , , adBookmarkFirst 
    txtNub = rs("学号") 
    cboType = rs("类型") 
    dtpEsp = rs("日期") 
    txtReason = rs("原因") 
End Sub 

[ProfoundKing]

我写的这个单击事件没反应
Private Sub libNub_Click()
Call showing
End Sub

[ProfoundKing]

谢谢VB老鸟，我刚才试了：rs.Find "学号='" & libNub.Text & "'", , , adBookmarkFirst
其实应该把它放在Private Sub libNub_Click()
rs.Find "学号='" & libNub.Text & "'", , , adBookmarkFirst
Call showing
End Sub
更合适！