VB.net and mysql

[ReganOverlimit]

Help me with Saving and retrieving images into mysql
Save Images im using it

Dim cmd As New MySqlCommand
        Dim adapter As New MySqlDataAdapter
        Call ConnectDB()
        If dup(txtfname.Text, txtmname.Text, txtlname.Text) = False Then
            If idup(txtid.Text) = False Then
                If txtfname.Text <> "" And txtmname.Text <> "" And txtflname.Text <> "" And txtnname.Text <> "" And txtage.Text <> "" And txtbplace.Text <> "" And txtno.Text <> "" And txtaddress.Text <> "" And txttribe.Text <> "" And cboMonth.Text <> "" And cboday.Text <> "" And cboYear.Text <> "" And cbogender.Text <> "" And cboBaptized.Text <> "" And cboReligion.Text <> "" And cbonationality.Text <> "" And cboLevel.Text <> "" And cboClass.Text <> "" And cboFeduc.Text <> "" And cboMeduc.Text <> "" And cboGeduc.Text <> "" Then
                    If MsgBox("Are you sure you want to Save this record?", _
               vbYesNo + vbQuestion, _
               "Save Data") = vbYes Then
                        Call ConnectDB()
                        strsql = "Insert into student(firstname,middlename,lastname,nickname,age,gender,month,day,year,baptized,nationality,religion,birthplace,tribe,phone,address,flname,ffname,fmname,foccupation,feducational,mlname,mfname,mmname,moccupation,meducational,guardian,goccupation,geducational,addresspg,level,Class,photo)values(@field2,@field3,@field4,@field5,@field6,@field7,@field8,@field9,@field10,@field11,@field12,@field13,@field14,@field15,@field16,@field17,@field18,@field19,@field20,@field21,@field22,@field23,@field24,@field25,@field26,@field27,@field28,@field29,@field30,@field31,@field32,@field33,@field34)"
                        cmd = New MySql.Data.MySqlClient.MySqlCommand(strsql, myconn)
                        With cmd
                            '.Parameters.AddWithValue("@field1", txtid.Text)
                            .Parameters.AddWithValue("@field2", txtfname.Text)
                            .Parameters.AddWithValue("@field3", txtmname.Text)
                            .Parameters.AddWithValue("@field4", txtlname.Text)
                            .Parameters.AddWithValue("@field5", txtnname.Text)
                            .Parameters.AddWithValue("@field6", txtage.Text)
                            .Parameters.AddWithValue("@field7", cbogender.Text)
                            .Parameters.AddWithValue("@field8", cboMonth.Text)
                            .Parameters.AddWithValue("@field9", cboday.Text)
                            .Parameters.AddWithValue("@field10", cboYear.Text)
                            .Parameters.AddWithValue("@field11", cboBaptized.Text)
                            .Parameters.AddWithValue("@field12", cbonationality.Text)
                            .Parameters.AddWithValue("@field13", cboReligion.Text)
                            .Parameters.AddWithValue("@field14", txtbplace.Text)
                            .Parameters.AddWithValue("@field15", txttribe.Text)
                            .Parameters.AddWithValue("@field16", txtno.Text)
                            .Parameters.AddWithValue("@field17", txtaddress.Text)
                            .Parameters.AddWithValue("@field18", txtflname.Text)
                            .Parameters.AddWithValue("@field19", txtffname.Text)
                            .Parameters.AddWithValue("@field20", txtfmname.Text)
                            .Parameters.AddWithValue("@field21", txtFoccupation.Text)
                            .Parameters.AddWithValue("@field22", cboFeduc.Text)
                            .Parameters.AddWithValue("@field23", txtmlname.Text)
                            .Parameters.AddWithValue("@field24", txtmfname.Text)
                            .Parameters.AddWithValue("@field25", txtmmname.Text)
                            .Parameters.AddWithValue("@field26", txtmoccupation.Text)
                            .Parameters.AddWithValue("@field27", cboMeduc.Text)
                            .Parameters.AddWithValue("@field28", txtGuardian.Text)
                            .Parameters.AddWithValue("@field29", txtgoccupation.Text)
                            .Parameters.AddWithValue("@field30", cboGeduc.Text)
                            .Parameters.AddWithValue("@field31", txtaddresspg.Text)
                            .Parameters.AddWithValue("@field32", cboLevel.Text)
                            .Parameters.AddWithValue("@field33", cboClass.Text)
                            .Parameters.AddWithValue("@field34", TextBox1.Text)
                        End With
                        cmd.ExecuteNonQuery()
                        cmd.Dispose()
                        MsgBox("New Student has beed added", MsgBoxStyle.Information, "System Information")
                        Me.Hide()
                        Receipt.btnTotal.Enabled = False
                        Receipt.Show()
                        'Receipt.txtid.Text = txtid.Text
                        Receipt.txtlname.Text = txtlname.Text
                        Receipt.txtfname.Text = txtfname.Text
                        Receipt.txtmname.Text = txtmname.Text
                        Receipt.txtLevel.Text = cboLevel.Text
                        Receipt.txtTuition.Text = "7000"
                        txtnname.Text = ""
                        txtage.Text = ""
                        txttribe.Text = ""
                        txtbplace.Text = ""
                        txtno.Text = ""
                        txtaddress.Text = ""
                        txtflname.Text = ""
                        txtffname.Text = ""
                        txtfmname.Text = ""
                        txtFoccupation.Text = ""
                        txtmlname.Text = ""
                        txtmfname.Text = ""
                        txtmmname.Text = ""
                        txtmoccupation.Text = ""
                        txtGuardian.Text = ""
                        txtgoccupation.Text = ""
                        txtaddresspg.Text = ""
                        cbogender.Text = ""
                        cboBaptized.Text = ""
                        cboMonth.Text = ""
                        cboday.Text = ""
                        cboYear.Text = ""
                        cbonationality.Text = ""
                        cboReligion.Text = ""
                        cboClass.Text = ""
                        pPic2x2.Image = Nothing
                        Label26.Visible = True
                        txtfname.Focus()
                    Else
                        Me.Focus()
                    End If
                Else
                    MsgBox("All Fields must required", MsgBoxStyle.Information, "System Message")
                    txtfname.Focus()
                End If
            Else
                MsgBox("Sorry,No. " + txtid.Text + " Already Exists", MsgBoxStyle.Critical, "Duplicate")
                txtid.Text = ""
                txtid.Focus()
            End If
        Else
            MsgBox("Sorry,Student Already Exists", MsgBoxStyle.Critical, "Duplicate")
            txtid.Text = ""
            txtfname.Text = ""
            txtmname.Text = ""
            txtlname.Text = ""
            txtnname.Text = ""
            txtfname.Focus()
        End If
        Call disconnectDB()
        Me.filllistview()
    End Sub

but then if i retrieve my image using listview this is my codes

 With Listview1.SelectedItems(0)
            txtid.Text = .SubItems(0).Text
            txtlname.Text = .SubItems(1).Text
            txtfname.Text = .SubItems(2).Text
            txtmname.Text = .SubItems(3).Text
            txtnname.Text = .SubItems(4).Text
            txtage.Text = .SubItems(5).Text
            cbogender.Text = .SubItems(6).Text
            cboMonth.Text = .SubItems(7).Text
            cboday.Text = .SubItems(8).Text
            cboYear.Text = .SubItems(9).Text
            cboBaptized.Text = .SubItems(10).Text
            cbonationality.Text = .SubItems(11).Text
            cboReligion.Text = .SubItems(12).Text
            txtbplace.Text = .SubItems(13).Text
            txttribe.Text = .SubItems(14).Text
            txtno.Text = .SubItems(15).Text
            txtaddress.Text = .SubItems(16).Text
            txtflname.Text = .SubItems(17).Text
            txtffname.Text = .SubItems(18).Text
            txtfmname.Text = .SubItems(19).Text
            txtFoccupation.Text = .SubItems(20).Text
            cboFeduc.Text = .SubItems(21).Text
            txtmlname.Text = .SubItems(22).Text
            txtmfname.Text = .SubItems(23).Text
            txtmmname.Text = .SubItems(24).Text
            txtmoccupation.Text = .SubItems(25).Text
            cboMeduc.Text = .SubItems(26).Text
            txtGuardian.Text = .SubItems(27).Text
            txtgoccupation.Text = .SubItems(28).Text
            cboGeduc.Text = .SubItems(29).Text
            txtaddresspg.Text = .SubItems(30).Text
            cboLevel.Text = .SubItems(31).Text
            cboClass.Text = .SubItems(32).Text
        End With

Please need your help

[jmcilhinney]

Follow the CodeBank link in my signature and check out my thread on Saving Images In Databases.