export declare const db_GenerateConnectionString = "\nFunction GenerateConnectionString(nameDatabase)\n GenerateConnectionString = \"NONE\"\n Dim ext\n ext = DatabaseExstension(nameDatabase)\n \n If ext = \"MDB\" then\n GenerateConnectionString = Replace(\"Provider=Microsoft.Jet.OLEDB.4.0;Data Source='NAMEDATABASE';\",\"NAMEDATABASE\",nameDatabase) \n End If\n\n If ext = \"ACCDB\" then\n GenerateConnectionString = Replace(\"Provider=Microsoft.ACE.OLEDB.12.0;Data Source='NAMEDATABASE';Persist Security Info=False;\",\"NAMEDATABASE\",nameDatabase)\n End If\n\n ' GenerateConnectionString = Replace(\"Provider=Microsoft.ACE.OLEDB.12.0;Data Source='NAMEDATABASE';Persist Security Info=False;\",\"NAMEDATABASE\",nameDatabase)\n\nEnd Function\n\nFunction DatabaseExstension(nameDatabase)\n dim ext\n ext = \"NONE\"\n If Right(UCase(nameDatabase), 4) = \".MDB\" then\n ext = \"MDB\"\n End If\n If Right(UCase(nameDatabase), 6) = \".ACCDB\" then\n ext = \"ACCDB\"\n End If\n DatabaseExstension = ext\nEnd Function";