ماهي طريقة إضافة اكثر من صورة دفعة واحد لمجلد الصور داخل المشروع وحفظ المسارات بـ sql

PHP كود :
Public Class Form1
    Dim ax, ay As Integer
    Dim dr As Boolean
    Dim fbd As FolderBrowserDialog


    Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")


    Private Sub savepics(ByVal u As String)
        Dim count As Integer = 0
        Dim dir As New IO.DirectoryInfo(u)
        count = dir.GetFiles("*.*").Count
        Dim i As Integer = 0
        p.Invoke(Sub() p.Maximum = count - 1)


        For Each fl As IO.FileInfo In dir.GetFiles("*.*")
            If con.State = ConnectionState.Closed Then con.Open()
            Dim cm As New OleDb.OleDbCommand("", con)
            cm.CommandText = "insert into tb(picname) values(@picname)"
            cm.Parameters.AddWithValue("@picname", fl.Name)


            cm.ExecuteNonQuery()
            lblname.Invoke(Sub() lblname.Text = fl.Name)
            p.Invoke(Sub() p.Value = i)

            fl.CopyTo(CurDir() & "\pics\" & fl.Name)

            i += 1


            Threading.Thread.Sleep(500)
        Next
        If con.State = ConnectionState.Open Then con.Close()
    End Sub

    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown, Label1.MouseDown, lblname.MouseDown
        If e.Button = MouseButtons.Left Then
            dr = True
            ax = MousePosition.X - Me.Left
            ay = MousePosition.Y - Me.Top
        End If
    End Sub

    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove, Label1.MouseMove, lblname.MouseMove
        If dr Then
            Me.Left = MousePosition.X - ax
            Me.Top = MousePosition.Y - ay
        End If
    End Sub

    Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click
        Close()
    End Sub

    Private Sub btnmin_Click(sender As Object, e As EventArgs) Handles btnmin.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp, Label1.MouseUp, lblname.MouseUp
        dr = False
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.mloc = Me.Location
        My.Settings.Save()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        fbd = New FolderBrowserDialog
        If fbd.ShowDialog = DialogResult.OK Then
            Dim th As New Threading.Thread(AddressOf savepics)
            If th.IsAlive = False Then
                th.Start(fbd.SelectedPath)
            End If
            'savepics(fbd.SelectedPath)
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.Location = My.Settings.mloc
    End Sub
End Class