hallo gansis semua dan para mastah bidang vb.net
ane ada kaskus nih ane mau buat data anggota di vb.net namun data anggota ini memakai foto anggota, jadi selain input profil anggota tapi juga ada inputan foto anggota, nah ane dah buat coding dengan mencontek beberapa codingan dan ane satuin namun gak pernah berhasil, maklum ane bukan programer gansis soalnya masih belajar. contoh coding ane seperti di bawah ini..

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox1.Text = "" Then
MsgBox("Data Belum Lengkap")
Exit Sub
Else
Call Koneksi()
CMD = New OleDbCommand("select * from testing where NPA_ID='" & TextBox1.Text & "'", CONN)
RD = CMD.ExecuteReader
RD.Read()
If Not RD.HasRows Then
Dim simpan As String = "insert into testing values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & DateTimePicker1.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "')"
Dim ms As New MemoryStream
Me.PictureBox1.Image.Save(ms, Me.PictureBox1.Image.RawFormat)

Dim arrayImage() As Byte = ms.GetBuffer
ms.Close() ' Closes the Memory Stream

Dim nStr As String = Me.Label14.Text.Substring(Me.Label14.Text.LastIndexOf("\") + 1)

Dim strQuery As String = "INSERT INTO testing(Nama, Foto) VALUES(@Name, @Picture)"

Dim objcommand As New OleDbCommand(strQuery, CONN)
With objcommand
.Parameters.Add(New OleDbParameter("@Name", SqlDbType.NVarChar, 50)).Value = nStr
.Parameters.Add(New OleDbParameter("@Picture", SqlDbType.Image)).Value = arrayImage
End With
CMD = New OleDbCommand(simpan, CONN)
CMD.ExecuteNonQuery()
Else
Dim edit As String = "update testing set Nama='" & TextBox2.Text & "',Laki_Perempuan='" & TextBox3.Text & "',T_Tgl_Lahir='" & TextBox4.Text & "',Alamat='" & TextBox5.Text & "',FK_Dokter='" & TextBox6.Text & "',FK_Spesialis='" & TextBox7.Text & "',NO_STR='" & TextBox8.Text & "',Tgl_Berlaku_STR='" & DateTimePicker1.Text & "',SIP1='" & TextBox9.Text & "',SIP2='" & TextBox10.Text & "',SIP3='" & TextBox11.Text & "' where NPA_ID='" & TextBox1.Text & "'"
CMD = New OleDbCommand(edit, CONN)
CMD.ExecuteNonQuery()
End If
Call Kosongkan()
End If
End Sub

kira-kira yang benar seperti apa ya.. mohon bantuannya..
bagi yang komen dan yang membantu semoga di beri kemudahan oleh Allah / Tuhan Yang Maha Esa dari segala kesusahan dunia dan akherat.. Aamiin...