Imagem aparecer AUTOMATICAMENTE em PictureBox

[JotaMax]

Boas pessoal!

Tenho esta Form para guardar registos. Cada registo tem um foto. Já coloquei o programa a guardar o caminho da foto na BD e a PictureBox a mostrar a imagem que cada registo tem!

Está a funcionar. Só que queria que ao navegar de registo em registo, que a PictureBox automaticamente muda-se a imagem, nos botões do primeiro, anterior, seguinte, ultimo.

 

'na funcao exibedados nao sei como chamar a imagem Private Sub ExibeDados()        TxtCliente.Text = ds.Tables(0).Rows(i)("NCliente").ToString()        Txtnome.Text = ds.Tables(0).Rows(i)("Nome").ToString()        Txtmorada.Text = ds.Tables(0).Rows(i)("Morada").ToString()        TxtLocalidade.Text = ds.Tables(0).Rows(i)("Localidade").ToString()        MTBCodigo.Text = ds.Tables(0).Rows(i)("Codigo_Postal").ToString()        MTBTelemovel.Text = ds.Tables(0).Rows(i)("Telemovel").ToString()        MTBContribuinte.Text = ds.Tables(0).Rows(i)("Contribuinte").ToString()        TxtEmail.Text = ds.Tables(0).Rows(i)("Email").ToString()        Dim ms As New MemoryStream(ObtemImagem(CInt(ds.Tables(0).Rows(i)("Imagem").value())        picBlob.Image = Image.FromStream(ms)    End Sub    Function ObtemImagem(ByVal Img As Integer) As Byte()        Dim Str As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Acer\Desktop\Base de Dados.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"        Dim sqlDa As New SqlDataAdapter        'Dim dtb As DataTable        Dim sqlCon As New SqlConnection(Str)        Dim sqlCmd As New SqlCommand        Dim Imagem() As Byte = Nothing        With sqlCmd            .CommandType = CommandType.Text            .CommandText = "Select Imagem From Clientes Where NCliente = " & Img            .Connection = sqlCon        End With        Try            sqlCon.Open()            Imagem = CType(sqlCmd.ExecuteScalar(), Byte())        Catch ex As Exception            MsgBox("Erro : " + ex.Message)        Finally            sqlCon.Close()        End Try        Return Imagem    End Function    Private Sub Primeiro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Primeiro.Click        'Criamos uma instância do objeto Connection usando a string de conexão para o banco desejado;        conn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Acer\Desktop\Base de Dados.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")        conn.Open()Clientes;        da = New SqlDataAdapter("select * from Clientes", conn)        ds = New DataSet()        da.Fill(ds, "Clientes")        Call ExibeDados()        If ds.Tables(0).Rows.Count > 0 Then            i = 0            Call ExibeDados()        End If    End Sub