เพิ่มโฟลเดอร์เก็บไฟล์ข้อมูลจากไดร์ฟ D: เข้าไปไว้ในตัวโปรแกรม

Dim LC As String = "D:\DBproject\File\sub\"

Dim fd As New OpenFileDialog()
        With fd
            .Title = "กรูณาเลือกไฟล์เอกสาร"
            .Filter = "PDF Files(*.pdf)|*.pdf"
            .FileName = ""
            .Multiselect = False
            .FilterIndex = 0
            .ShowDialog()

            pdfFileName = .FileName

            If .FileName <> "" Then
                Sub_File.Text = pdfFileName
                Filename = Path.GetFileName(fd.FileName.ToString)
            Else
                pdfFileName = ""
                Sub_File.Text = ""
            End If
        End With
End Sub

Private Sub ButtonFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSaveFile.Click
        Dim fd As New SaveFileDialog()
        With fd
            .FileName = pdfFileName
            If ds.Tables("sub").Rows.Count = 0 Then
                MsgBox("กรุณาเพิ่มรายการหนังสือก่อน")
            Else
                If File.Exists(pdfFileName) = True Then
                    File.Move(pdfFileName, LC & Filename)
                    Sub_File.Text = Filename
                    Try
                        cn.Open()
                        strSQL = "UPDATE sub SET Sub_File = '" & Filename & "' WHERE (Sub_no = '" & Sub_no.Text & "')"
                        Comm = New OleDbCommand(strSQL, cn)
                        Comm.ExecuteNonQuery()
                        da.Update(ds, "sub")
                        MessageBox.Show("บันทึกไฟล์หนังสือเรีบยร้อย")
                        Call clearData()
                        Call showData()
                        cn.Close()
                    Catch ex As Exception
                        MessageBox.Show(ex.Message)
                    End Try
                Else
                    MsgBox("ไม่สามารถบันทึกไฟล์เอกสารได้")
                End If
            End If
        End With
    End Sub

Private Sub ButtonDeleteFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDeleteFile.Click
        If ds.Tables("sub").Rows.Count = 0 Then
            MsgBox("กรุณาเพิ่มรายการหนังสือก่อน")
        Else
            If File.Exists(LC & Sub_File.Text) = True Then
                File.Delete(LC & Sub_File.Text)
                Sub_File.Text = ""
                Try
                    cn.Open()
                    strSQL = "UPDATE sub SET Sub_File = '" & Sub_File.Text & "' WHERE (Sub_no = '" & Sub_File.Text & "')"
                    Comm = New OleDbCommand(strSQL, cn)
                    Comm.ExecuteNonQuery()
                    MessageBox.Show("ลบไฟล์หนังสือเรีบยร้อย")
                    Call clearData()
                    Call showData()
                    cn.Close()
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            Else
                MsgBox("ไม่สามารถลบไฟล์เอกสารได้")
            End If
        End If
    End Sub