Dim connStrTemplate as String = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDBatabase L" & _
"ocking Mode=1;Jet OLEDBatabase Password=;Data Source=""{PATH}"";Jet OLEDB:Engine Type=5;Provider=""Microsoft." & _
"Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP=False;Jet OLEDB:Global B" & _
"ulk Transactions=1;Mode=Share Deny None;Jet OLEDB:New Database Password=;Jet OLE" & _
"DB:Create System Database=False;Jet OLEDBon't Copy Locale on Compact=False;Jet" & _
" OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Encrypt Data" & _
"base=False"
Me.connectionMainForm.ConnectionString = connStrTemplate.Replace("{PATH}", PATH_TO_DB_MAYBE_FROM_USER_FILE_CHOOSER)