Importing/Exporting to current directory

I have a question about importing/exporting ...heres the command

VB Code:

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "SSN", "C:\SSN.xls", True

what I want to do is set this so that the C:\SSN.xls will instead be whatever the current directory the database file is in. Thats pretty much it. Thanks.

This will geive you the current db name and path.

VB Code:

Application.CurrentDb.Name