Dim sourceFileName As String
    Dim destFileName As String

    Public Shared Sub Copy(ByVal sourceFileName As String, ByVal destFileName As String)

    End Sub

                Dim imgFileName As String = "IMG_" & CStr(Date.Now.ToString("ddMMyyHHmmss", CultureInfo.InvariantCulture) & ".JPG")

                destFileName = Application.StartupPath & "\img\" & imgFileName

                Me.FotografieTableAdapter.Insert(newID, imgFileName, DidascaliaIDComboBox.SelectedValue)

                File.Copy(sourceFileName, destFileName)