Problema con MkDir

Buonasera,
ho un problema con la funzione MkDir.
Posto il codice che utilizzo per creare la directory in cui salvare un report:

Private Sub cmd_rprova_combustibile_Click()

Dim folder as string, Sql as string
folder = DLookup("[Folder]", "Folder", "ID_Folder = 2") & "\"
If Len(Dir(folder, vbDirectory)) = 0 Then
MkDir (folder)
End If

Sql = "SELECT * FROM Q_Report WHERE Assegnazione.[ID_Assegnazione]=" & N_ID
CurrentDb.QueryDefs("Q_Report_temp").SQL = vSql
DoCmd.OpenReport "Rapp_Prova_Comb", acViewPreview
DoCmd.OutputTo acOutputReport, "Rapp_Prova_Comb", acFormatPDF, folder & "Rapp_Prova_Comb.pdf"
End Sub

il codice scritto cosi funziona.
Ma se lo complico un po' sorgono i problemi:

Private Sub cmd_rprova_combustibile_Click()
Dim folder as string, tcamp as string, Cat as string, folder1 as string, Sql as string
tcamp = DLookup("[Tipo_Campione]", "Q_Protocollo", "[ID_Assegnazione] =" & N_ID)
Cat = DLookup("[Categoria]", "Q_Protocollo", "[ID_Assegnazione] =" & N_ID)
folder = DLookup("[Folder]", "Folder", "ID_Folder = 2") & "\"
folder_comb = Cat & "\" & tcamp & "\"
folder1 = folder & folder_comb
If Len(Dir(folder1, vbDirectory)) = 0 Then
MkDir (folder1)
End If

Sql = "SELECT * FROM Q_Report WHERE Assegnazione.[ID_Assegnazione]=" & N_ID
CurrentDb.QueryDefs("Q_Report_temp").SQL = vSql
DoCmd.OpenReport "Rapp_Prova_Comb", acViewPreview
DoCmd.OutputTo acOutputReport, "Rapp_Prova_Comb", acFormatPDF, folder1 & "Rapp_Prova_Comb.pdf"
End Sub

Ottengo il messaggio d'errore: "Impossibile trovare il percorso".
Forse Con MkDir non è possibile combinare stringhe?