dim backm as database
Set backm = Workspaces(0).OpenDatabase("ssdns", dbDriverNoPrompt, False, "DSN=ssdns;UID=sa;PWD=;DATABASE=ssdns;")
SQL = "select * into [;database=" + App.Path + "\backup\backup.mdb].sys_log from sys_log where 1=1"
backm.Execute SQL