creare cartelle con nome campo access

[erprof]

In attesa che un moderatore di sezione ti sposti in windows

Private Sub Comando0_Click()
Dim strSQL As String
Dim strPath As String
Dim rst As DAO.Recordset
strSQL = "select distinct nome from tabella"
strPath = "C:\path_in_cui_creare_cartelle\"
Set rst = CurrentDb.openrecordset(strSQL, dbopensnapshot)
If rst.RecordCount > 0 Then
    rst.MoveFirst
        Do While Not rst.EOF
            MkDir strPath & rst("nome")
            rst.MoveNext
        Loop
MsgBox "Operazione conclusa"
End If
End Sub

ciao scusate tutti...sono leggerissimamente principiante...ho provato questa routine e funziona, infatti mi crea una cartella "nome" per ogni record presente in tabella...ma se io volessi creare una cartella per un singolo record? cioè provo a spiegarmi meglio ho creato una maschera per visualizzare il contenuto di un record, vorrei creare una cartella con il nome di un singolo campo presente in un record, ma non ci riesco

grazie in anticipo