codice:
'Se ho ben capito tu vuoi aggiungere "DATI" alla directory corrente
Dim folder As String =  AppDomain.CurrentDomain.BaseDirectory & "DATI"
Con AppDomain.CurrentDomain.BaseDirectory ottieni la Directory sulla quale l'applicazione è avviata.

App.Path è del VB6 ed è usato per ottenere il Path completo dell'applicazione, in VB.NET dovresti usare:
codice:
Dim path As String = Application.ExecutablePath