Dim DBConnection AsNew Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|vwd.mdb")

|DataDirectory| will find the App_Data Folder wherever your pages are actually deployed