No utilices DSN mejor pon una cadena de conexion a ver si se quita el error para access:
Public cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tu_DB.mdb" & ";Persist Security Info=False;Jet OLEDB:Database Password=Tu_password"
Saludos