char FileName[256];
strcpy(FileName, "Имя файла");

........

sfn.lpstrFile = FileName;

.........

К сожалению я такой язык плохо знаю. Наверно, что то типа (за синтаксис не ручаюсь):

Function SaveDlg(sFilter As String, path As String)
Dim sFile As OPENFILENAME
Dim lReturn As Long
Dim FileName As String(257, 0)
FileName = "здесь писать имя файла"
sFile.lStructSize = Len(OpenFile)
sFile.lpstrFilter = sFilter
sFile.nFilterIndex = 1
sFile.lpstrFile = FileName
sFile.nMaxFile = Len(sFile.lpstrFile) - 1
sFile.lpstrFileTitle = sFile.lpstrFile
sFile.nMaxFileTitle = sFile.nMaxFile
sFile.lpstrInitialDir = path
sFile.Flags = OFN_OVERWRITEPROMPT + OFN_HIDEREADONLY
sFile.lpstrDefExt = "mdb"
lReturn = GetSaveFileName(sFile)
If lReturn > 0 Then
SaveDlg = Trim(sFile.lpstrFile)
End If
End Function