Try replacing this

Code:
Set db_data = OpenDatabase("GLOBAL", False, False, Connect$)
with this

Code:
Set db_data = OpenDatabase("", False, False, Connect$)