Access 2003
DIM CnnDBSPB As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C://DBTest.mdb;JET OLEDB:Database password=120315")
Access 2007
Dim CnnDBSPB2007 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C://DBTest.mdb;JET OLEDB:Database password=120315")