Per impostare la directory dell'applicazione come attuale:
ChDir App.Path

per quanto riguarda il parametro di curDir$ penso che voglia specificato il drive... però penso che curDir sia una funzione e quindi non scrivibile... ma non ne sono certa.

Esempio:

Private Sub Command1_Click()
ChDir App.Path
'e poi se l'applicazione è sul drive C
MsgBox "la directory attuale è " & CurDir$("C")
End Sub

Dovresti visualizzare nella msgBox la directory dell'applicazione...
Ciao