Private Function getDB2app() As String
Dim myPath As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)
Dim finfos() As IO.FileInfo = New IO.DirectoryInfo(myPath).GetFiles("db2.exe", IO.SearchOption.AllDirectories)
For Each finfo As IO.FileInfo In finfos
If finfo.Directory.Parent.Name.ToLower = "sqllib" Then Return finfo.FullName
Next
Return Nothing
End Function