Вот это должно работать. CStr здесь лишний, но погоды не делает.
Также учти, что метод db.GetProfileDocument в любом случае возвращает документ. Даже если его нет, то метод создаст пустой пофильный документ.
Также стоит помнить, что профильные документы кэшируются. Поэтому, если что-то не пашет, то можно попробовать переоткрыть базу.
Если не работает, то ищи ошибку.Set proDoc = db.GetProfileDocument("InformationSystem")
Dim a1 As String
Dim a2 As String
a1 = Cstr(proDoc.GetItemValue("PathToServer")(0))
Также учти, что метод db.GetProfileDocument в любом случае возвращает документ. Даже если его нет, то метод создаст пустой пофильный документ.
Также стоит помнить, что профильные документы кэшируются. Поэтому, если что-то не пашет, то можно попробовать переоткрыть базу.