Func AccessODBC($query, $file, $flag = "Read")
	Local $conn = ObjCreate("ADODB.Connection")
	Local $DSN = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & $file & ";Jet OLEDB:Database Password=*****")
	$conn.Open($DSN)
	ConsoleWrite($query & @CR)
	If $flag = "Read" Then
		Local $RS = ObjCreate("ADODB.Recordset")
		$RS.open($query, $conn)
		Local $array

		If $RS.EOF Then
			Return False
		Else
			$array = $RS.GetRows()
		EndIf

		$conn.close
		$RS = ""
		$conn = ""
		$DSN = ""
		Return $array
	Else
		$conn.Execute($query)

		$conn.close
		$RS = ""
		$conn = ""
		$DSN = ""
	EndIf
EndFunc   ;==>AccessODBC