вместо
CR.DataFiles(0) = App.Path & "\Database\DUAL_ACS.mdf"
попробовать
CR.Connect = <<connection string to SQL Server goes here>>
Строка подключения должна быть в формате:
"DSN=<<server name here>>;" & _
"UID=<<user name here>>;" & _
"PWD=<<password here>>;" & _
"DSQ=<<database name here>>"
Просто пояснить, что бит DSN на самом деле не DSN; скорее, оно было перегружено, чтобы означать «имя SQL Server».