'driver

cn.ConnectionString = "Driver=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\Biblio.mdb"

'provider
cn.ConnectionString = _
       "Provider=Microsoft.Jet.OLEDB.4.0;" _
       & "Data Source=" & App.Path & "\Biblio.mdb;"