关于如何点击控件datagrid中某条记录显示其详细信息

Question

正在做一个VB+SQL的数据库（Visual Basic6.0+SQL Server 2000）  想问下如何通过点击datagrid中查询到的某条具体记录来显示其详细信息呀？（在另一个界面上显示其详细信息）
查询的源代码如下：
   Private Sub Command1_Click()
'Set Data1.DataSource = rs
'rs.Close
cn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
  & "Persist Security Info=False;User ID=sa;" _
  & "Initial Catalog=木材材性数据库;Data Source=WWW-E5EBB6182AD"
  If conn.State <> 1 Then
  conn.Open (cn)
End If
Select Case Combo1.Text
Case "treespecies"
Text1 = InputBox("请输入树种名")
If Text1.Text = "" Then
  rs.Open "select * from treespecies", cn, 1, 1
  Set Data1.DataSource = rs
  Data1.Refresh
 ' rs.Close
 Else
  'rs.Close
  rs.Open "select * from treespecies where name='" & Text1.Text & "'", cn, 1, 1
  Set Data1.DataSource = rs
  Data1.Refresh
 
  End If
Case "treemessage"
Text1 = InputBox("请输入树种名")
If Text1.Text = "" Then
rs.Open "select * from treemessage", cn, 1, 1
  Set Data1.DataSource = rs
  Data1.Refresh
 ' rs.Close
 Else
 ' rs.Close
  rs.Open "select * from treemessage where name='" & Text1.Text & "'", cn, 1, 1
  Set Data1.DataSource = rs
  Data1.Refresh
  
  End If
  Case "treex"
Text1 = InputBox("请输入树种名")
If Text1.Text = "" Then rs.Open "select * from treex", cn, 1, 1
  Set Data1.DataSource = rs
  Data1.Refresh
  'rs.Close
 Else
  'rs.Close
  rs.Open "select * from treex where name='" & Text1.Text & "'", cn, 1, 1
  Set Data1.DataSource = rs
  Data1.Refresh
  
  End If
  End Select
  
End Sub