A family of Microsoft relational database management systems designed for ease of use.
Try this:
Dim strPath As String
strPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
See http://msdn.microsoft.com/en-us/library/0ea7b5xe(v=vs.85).aspx for the other folder paths that you can retrieve using this method.