Para poder crear una DNS debes tener acceso de administracion al servidor y eso pocas veces sucede.
Lo que puedes hacer es una ruta Relativa y enviarla como parametro a tu string de conexion, creo que tu base de datos esta en la raiz del sitio, algo como esto:
string MiDB= Server.MapPath + "\BaseDatos.mdb";//Para capturar la ruta donde esta aloja el proyecto y concatenamos la ruta de la BD
Entonces quedaria asi:
string COnex = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " +MiDB+")";
Dim Conn As New OleDbConnection(COnex);
Espero que esto te sirva un poco para guiarte, tendrias que revizar la sintaxis porque esto lo hice sin probarlo en el VS
Saludos
