Added ImportAndDumpToAccessDB example

Author: ws-garcia

docs/examples/importation-examples.md

@@ -20,8 +20,8 @@ Sub ImportRecords()
 	Set CSVint = New CSVinterface
 	Set conf = CSVint.ParseConfig
 	With conf
-	    .path = "C:\100000.quoted.csv"
-	    .dynamicTyping = False
+		.path = "C:\100000.quoted.csv"
+		.dynamicTyping = False
 	End With
 	CSVint.GuessDelimiters conf 'Try to guess CSV file data delimiters
 	CSVint.ImportFromCSV(conf).DumpToArray Arr 'Import and dump the data to an array
@@ -38,7 +38,7 @@ Sub TEST_DynamicTyping()
 	Dim conf As parserConfig
 	Dim CSVstring As String
 	Dim Arr() As Variant
-    
+	
 	Set CSVint = New CSVinterface
 	Set conf = New parserConfig
 	With conf
@@ -84,4 +84,33 @@ Sub ImportAndDumpToSheet()
 	CSVint.ImportFromCSV(conf).DumpToSheet 'Import and dump the data to a new Worksheet
 	Set CSVint = Nothing 'Terminate the current instance
 End Sub
+```
+
+The \[EXAMPLE4\] shows how you can dump the imported data to an Access Database. The created table will have some indexed fields.
+
+>⚠️**Caution**
+>{: .text-grey-lt-000 .bg-green-000 }
+>This method is only available in the [Access version of the CSVinterface.cls](https://github.com/ws-garcia/VBA-CSV-interface/raw/master/src/Access_version.zip) module.
+{: .text-grey-dk-300 .bg-yellow-000 }
+
+#### [EXAMPLE4]
+```vb
+Sub ImportAndDumpToAccessDB()
+	Dim path As String
+	Dim conf As parserConfig
+	Dim dBase As DAO.Database
+	
+	Set CSVint = New CSVinterface
+	Set conf = CSVint.ParseConfig
+	With conf
+	    .path = "C:\100000.quoted.csv"
+	    .dynamicTyping = False
+	End With
+	CSVint.GuessDelimiters conf 'Try to guess CSV file data delimiters
+	Set dBase = CurrentDb
+	'Import and dump the data into a new database table. This will create indexes for the "Region" field and for the second field in the table.
+	CSVint.ImportFromCSV(conf).DumpToAccessTable dBase, "CSV_ImportedData", "Region", 2
+	Set CSVint = Nothing
+	Set dBase = Nothing
+End Sub
 ```