I tested this just using an mdb file and it worked. You might give it a shot with your parameters. Details of wshshortcut can be found here.

Code:
 

break on



$=setoption("WRAPATEOL","ON")



$=wshshortcut("%temp%\Access",@scriptdir + "\DB1.mdb",,,,3)

run '%comspec% /c "%temp%\access.lnk"'



function wshShortCut($shortcutname,$targetpath,optional $arguments, optional $startdir, optional $iconpath, optional $style,optional $description)

  dim $shell, $desktop, $shortcut, $index, $iconinfo, $iconindex,$scdir

  $wshshortcut=1

  $shell = createobject("wscript.shell")

  if $shell

    if ucase(right($shortcutname,4))=".URL" or ucase(right($shortcutname,4))=".LNK"

      ;do nothing

    else

      if ucase(left($targetpath,5))="HTTP:" or ucase(left($targetpath,6))="HTTPS:" or ucase(left($targetpath,4))="FTP:"

        $shortcutname=$shortcutname + ".url"

      else

        $shortcutname=$shortcutname + ".lnk"

      endif

    endif

    if instr($shortcutname,".lnk") and not exist($targetpath)

      exit 2

    endif

    if instr($shortcutname,"\")=0

      $Desktop = $shell.SpecialFolders("Desktop")

      $shortcutname=$desktop + "\" + $shortcutname

    else

      $scdir=substr($shortcutname,1,instrrev($shortcutname,"\"))

      if not exist($scdir)

        md $scdir

        if @error

          exit @error

        endif

      endif

    endif

    $shortcut = $shell.createshortcut($shortcutname)

    if $shortcut

      $shortcut.targetpath = $targetpath

      if $iconpath and instrrev($shortcutname,".lnk")

        $shortcut.iconlocation = $iconpath

      endif

      if $arguments

        $shortcut.arguments = $arguments

      endif

      if $startdir

        $shortcut.workingdirectory = $startdir

      endif

      if $style

        $shortcut.windowstyle = $style

      endif

      If $description and instrrev($shortcutname,".lnk")

	  $shortcut.description = $description

      EndIf

      $shortcut.save

      if @error

        exit @error

      endif

      if instrrev($shortcutname,".url") and $iconpath

        $index=instrrev($iconpath,",")

        if $index=0

          $iconindex=0

        else

          $iconindex=split($iconpath,",")[1]

          $iconpath=split($iconpath,",")[0]

        endif

        $=writeprofilestring($shortcutname,"InternetShortcut","IconFile",$iconpath)

        $=writeprofilestring($shortcutname,"InternetShortcut","IconIndex",$iconindex)

      endif

      $shortcut = 0

      $wshshortcut=0

    else

      exit @error

    endif 

  else

    exit @error

  endif 

endfunction
_________________________
(... better days ahead)