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

VB中listBox的问题！（不是.net）
我想单击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

[解决办法]

VB code

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