Display images from database using vb.net next previous buttons

See more:

VB

Hi friends, I am doing task display images from database in to image control using first next previous last buttons click events.successfully displayed images for first and last button click events.

But when I am click next and previous buttons the images could not be displayed.
Please find the solution here is my code..

Advance thanking you friends..


Dim rno As Integer

Protected Sub btnprevious_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnprevious.Click
        cmd.CommandText = " select * from customerr"
        Dim da As New SqlDataAdapter
        Dim dt As New DataTable
        da.SelectCommand = cmd
        cmd.Connection = connection
        da.Fill(dt)
        rno = dt.Rows.Count - 1
        'If rno > 0 Then
        rno -= 1
        If dt.Rows.Count > "0" Then
            txtcustid.Text = dt.Rows(rno)(0).ToString()
            txtcustname.Text = dt.Rows(rno)(1).ToString()
            txtcustaddress.Text = dt.Rows(rno)(2).ToString()
            If dt.Rows(rno)(3) IsNot Nothing Then
                photo_aray = DirectCast(dt.Rows(rno)(3), Byte())
                photo_aray = dt.Rows(rno)(3)
                image1.ImageUrl = "data:image/png;base64," & Convert.ToBase64String(photo_aray)
            End If
        End If
        'End If

    End Sub

Protected Sub btnxt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnnxt.Click
        cmd.CommandText = "select * from customerr"
        Dim da As New SqlDataAdapter
        Dim dt As New DataTable
        da.SelectCommand = cmd
        cmd.Connection = connection
        da.Fill(dt)
        'Dim i As Integer
        'rno = dt.Rows.Count - 1
        If rno < dt.Rows.Count - 1 Then
            rno += 1
            If dt.Rows.Count > rno Then
                txtcustid.Text = dt.Rows(rno)(0).ToString()
                txtcustname.Text = dt.Rows(rno)(1).ToString()
                txtcustaddress.Text = dt.Rows(rno)(2).ToString()
                If dt.Rows(rno)(3) IsNot Nothing Then
                    photo_aray = DirectCast(dt.Rows(rno)(3), Byte())
                    photo_aray = dt.Rows(rno)(3)
                    image1.ImageUrl = "data:image/png;base64," & Convert.ToBase64String(photo_aray)
                End If
            End If
        End If
    End Sub