DB2ConnectionString
b2str = "Provider=MSDAsql.1;Password=a$sk6G7;Persist Security Info=True;User ID=DBA;Data Source=ConDB2SFXXK"
AccessConnectonString
accessstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/DMSJK.mdb;Jet OLEDB:database password="