Mohon bantuannya :
Saya sedang buat tugas kuliah untuk belajar vb 10 dan mysql,
saya ingin simpan data dengan foto dan sukses.., masalahnya saat saya ingin menampilkan data ke textboxt dan picture box dengan klik double di datagridview kok datanya bisa tampil ditextboxt tapi foto/gambarnya tidak muncul ya????
Dimanakah salahnya sehingga gambar saja yang tidak bisa tampil di picturebox...???mohon bantuannya master2 saya sudah pening mikirinnya belum nemu juga slaahnya dimana???tx

Dibawah sc tugas yg saya buat :

Public Class Form1
Sub Data_Record()
Try
Call Koneksi()

Ds = New DataSet

Tabel = "SELECT * FROM TblKaryawan"
Grid = New MySql.Data.MySqlClient.MySqlDataAdapter(Tabel, Database)
Grid.Fill(Ds, "TblKaryawan")

Dim GridView As New DataView(Ds.Tables("TblKaryawan"))
DGKaryawan.DataSource = GridView
DGKaryawan.Columns(0).Width = 75
DGKaryawan.Columns(1).Width = 275
'DGKaryawan.Columns(3).Visible = False
DGKaryawan.Columns(3).Width = 275
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub

Sub Atur()
NikKaryawanTxt.Text = ""
NmKaryawanTxt.Text = ""
DivTxt.Text = ""
FotoTxt.Text = ""
FotoPic.ImageLocation = Nothing
End Sub

Private Sub SimpanBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpanBtn.Click
If NikKaryawanTxt.Text = "" Then NikKaryawanTxt.Focus() : Exit Sub
If NmKaryawanTxt.Text = "" Then NmKaryawanTxt.Focus() : Exit Sub
If DivTxt.Text = "" Then DivTxt.Focus() : Exit Sub
Try
Call Koneksi()

DMLSql.Connection = Database
DMLSql.CommandType = CommandType.Text

DMLSql.CommandText = "Insert into TblKaryawan values('" & NikKaryawanTxt.Text & "','" & NmKaryawanTxt.Text & "','" & DivTxt.Text & "','" & FotoTxt.Text & "')"
DMLSql.ExecuteNonQuery()

Call Atur()
Call Data_Record()

MsgBox("Data sudah diproses", vbInformation, "Message")
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Data_Record()
End Sub

Private Sub FotoBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FotoBtn.Click
ofdfoto.Filter = "Jpeg|*.JPG|Bitmap| *.BMP|Gif| *.GIF"
ofdfoto.RestoreDirectory = True
ofdfoto.ShowDialog()
If ofdfoto.FileName = "" Then Exit Sub
FotoPic.ImageLocation = ofdfoto.FileName
FotoTxt.Text = ofdfoto.FileName
End Sub

Private Sub dgkaryawan_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgkaryawan.DoubleClick
Try
NikKaryawanTxt.Text = dgkaryawan.SelectedCells(0).Value
NmKaryawanTxt.Text = dgkaryawan.SelectedCells(1).Value
DivTxt.Text = dgkaryawan.SelectedCells(2).Value
FotoTxt.Text = dgkaryawan.SelectedCells(3).Value
FotoPic.ImageLocation = FotoTxt.Text
'Me.Hide()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub

Private Sub FotoTxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FotoTxt.TextChanged
FotoTxt.Text = (Replace(FotoTxt.Text, "\", ";"))
End Sub
End Class