If Len(Dir(databasetext)) = False Then
MsgBox "Database Path Not Available"
End if

Private Declare Function PathIsDirectory Lib "Shlwapi" _
    Alias "PathIsDirectoryW" (ByVal lpszPath As Long) As Long

Function DirExists(ByVal sDirName As String) As Boolean
  'NB The shlwapi.dll is built into Windows 2000 and 98 and later:  '
  '   it comes withInternet Explorer 4 on NT 4 and 95. '
  'NB Calling "Wide" (Unicode) version. Always available. '
  DirExists = (PathIsDirectory(StrPtr(Trim$(sDirName))) <> 0)
End Function

Private Declare Function PathIsDirectory Lib "Shlwapi" _
    Alias "PathIsDirectoryW" (ByVal lpszPath As Long) As Long

Function DirExists(ByVal sDirName As String) As Boolean
  'NB The shlwapi.dll is built into Windows 2000 and 98 and later:  '
  '   it comes withInternet Explorer 4 on NT 4 and 95. '
  'NB Calling "Wide" (Unicode) version. Always available. '
  DirExists = (PathIsDirectory(StrPtr(Trim$(sDirName))) <> 0)
End Function