VB打包后不能正常安装的问题,请高人指点.

打包后安装出现错误 
我是用setup   factory   7.0作安装程序打包的 

打包出来的安装程序在已安装VB的机子（都是xp系统）上安装没出现问题 

但是在未安装vb的电脑上（2000和XP的系统都试过）安装时候却出现以下错误提示后不能继续 

安装程序无法创建以下文件夹: 
%CommonFiles%\Microsoft   Shared\DAO 


还请各位高手帮忙指点下 !!!!!! --------------------编程问答-------------------- 在setupfactory中将目标%CommonFiles%\Microsoft   Shared\DAO  改成 %SystemFolder% 就可以了 --------------------编程问答-------------------- 我全改了,打包后还是提示此故障,说明:我的程序中运用了ACCESS数据库.
--------------------编程问答-------------------- 好久碰到过这种现象，是不是msjro.dll这个文件报错，好象从打包中把它删除就可以了，试试看 --------------------编程问答-------------------- 不过这个文件是压缩access数据库用的，要不手动复制后再注册一下试试 --------------------编程问答-------------------- 你应该扫描一下VB工程文件 --------------------编程问答-------------------- 使用到ADO数据库

Msado15.dll vba6.dll vb6chs.dll 都要注册.  

有用到 Datagrid的话 Dbgrid32.ocx 要注册 

有用到 MSflexgrid的话 MSFLXGRD.OCX 要注册 

如果还有问题的话,再试着注册下面的: 

msvbvm60.dll mscomm32.ocx mscomctl.ocx 

--------------------编程问答-------------------- 还有一个可能的问题, 如果在你的代码中有用到 Shell DOS 下的命令的话, 请先转为短路径名,示例如下:

'添加 Command1 

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long 
Dim fname$ 
Private Sub Command1_Click() 
 fname = GetShortName("C:\Program Files\TENCENT\qq") & "\QQ.exe" 
 Call Shell(fname, vbNormalFocus) 
End Sub 

Public Function GetShortName(ByVal sLongFileName As String) As String 
 Dim lRetVal&, sShortPathName$, iLen% 
 sShortPathName = Space(255) 
 iLen = Len(sShortPathName) 
 lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen) 
 GetShortName = Left(sShortPathName, lRetVal) 
End Function 

补充：VB ,  基础类