Private Function GetThisWorkbookCN() As String
   Dim fileFullPath As String
   fileFullPath = ThisWorkbook.FullName
   GetThisWorkbookCN = "DSN=Excel Files;DBQ=" & fileFullPath
End Function