Thanks Roy & Wayne
After a lot of trial and error following code works fine:-
Private Sub Command165_Click()
Dim xPath, xFolder, xCmd, Result As String
xPath = "C:\Documents and Settings\admin\My Documents\folder\"
xFolder = xPath & Me![ClientName]
' (MkDir xFolder ' create folder )
xCmd =...