VB.net Toplu İnsert

For z = 1 To 605
            form1.pic_tek_sayi.Load("C:\Users\windows\Desktop\kla\" & z & ".jpg")
            Dim yollar As String
            yollar = "C:\Users\windows\Desktop\kla\" & z & ".jpg"
            con.Close()
            Dim mstream As New System.IO.MemoryStream()
            form1.pic_tek_sayi.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Jpeg)
            Dim arrImage() As Byte = mstream.GetBuffer
            Dim sqlcmd As New MySqlCommand
            Dim sql As String
            mstream.Close()
            sql = "insert into resimler  (res)VALUES  (' " + yollar + " ')"
            Try
                con.Open()
                With sqlcmd
                    .CommandText = sql
                    .Connection = con
                    .Parameters.AddWithValue("@File", arrImage)
                    .ExecuteNonQuery()
                End With
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                con.Close()
                sqlcmd.Parameters.Clear()
            End Try
        Next