Se vuoi che funzioni in tutti e due i modi( non è bello ma funziona)

Dim path As String
path = Server.MapPath("")

If path.IndexOf("wwwroot") > 0 Then
path = path.Replace("wwwroot", "")
End If
path = path & "database/blog.mdb"

OleDbConnection conn = new OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source=" + path);

Fammi sapere
Ciao
Kalman