Forms :: Naming File Exporting To Spreadsheet

I am exporting a single record to a spreadsheet. The code I have works fine. The problem is I want to have the spreadsheet contain the information that is in one of the forms textboxes, in this case a dogs name.

I have created a query to get the dogs name which works but I dont know how to get that query to run and then be put in the file name.

The code that I have is below

Code:
Private Sub btn_ExportDog_Click()
Dim strday As String 'The date
Dim sDest As String 'Where the file will be copied to
Dim sSource As String 'The name of the file to be copied
Dim strDogName As String 'The name of the dog that is geting exported
Dim strBackUp As String
strBackUp = "c:GPandDetectionDogTrainingLogBackUp"

[Code]...