(Resolvido) Somente o primeiro registro

[rodrigotnoma]

Private Sub DataGridView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseUp

Dim sql As String
        Dim conn As SqlConnection
        Dim cmd As SqlCommand
        Dim ds As DataSet
        Dim da As SqlDataAdapter
        Dim dt As DataTable
        Dim rc As Integer
        Dim r As DataRow

        sql = "select * from emprestimo"

        conn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\BD_Biblioteca\Biblioteca.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")

        conn.Open()

        cmd = New SqlCommand(sql, conn)

        da = New SqlDataAdapter(cmd)

        ds = New DataSet

        da.Fill(ds, "emprestimo")

        dt = ds.Tables(0)

        r = dt.Rows(rc)

        rc = DataGridView1.CurrentRow.Index


        TextBox1.Text = r("isbn")
        TextBox2.Text = r("usuario")
        TextBox3.Text = r("data_emp")
        TextBox4.Text = r("status")

End Sub

Quando clico em algum registro do DataGrid, sempre aparece o primeiro registro, mesmo quando clico no segundo registro que aparece no DataGrid, aparece o primeiro registro.

O que poderia ser?

Obrigado

Editado Abril 23, 2009 por quintelab
Adicionado BBCode Code

[Jonathan Queiroz]

A atribuição da variável dc deveria estar antes de você atribuir o valor a r

Ao invés de:

r = dt.Rows(rc)
rc = DataGridView1.CurrentRow.Index

Faça:

rc = DataGridView1.CurrentRow.Index
r = dt.Rows(rc)

[rodrigotnoma]

OK Jonathan, resolvido.

Obrigado pela ajuda.