显示出错了？

做新闻我想用datagrid点击标题，然后了出现具体内容，可是点击了只能显示出第一条内容，怎么回事？
If Session("pass") <> "ok" Then
Response.Redirect("login.aspx")
End If
Dim str As String = "select * from message1 where caption='" & Session("caption") & "'"
Dim ad As SqlDataAdapter = New SqlDataAdapter(str, conn)
ad.Fill(ds, "message1")
Label1.Text = ds.Tables("message1").Rows(0).Item("caption")
TimeLabel.Text = ds.Tables("message1").Rows(0).Item("date1")
AuthorLabel.Text = ds.Tables("message1").Rows(0).Item("name")
Label2.Text = ds.Tables("message1").Rows(0).Item("meat")