vb运行出错的问题还没有解决,请高手帮忙啊,大家都来!

Question

运行程序之后提示:  Compile error, can't find project or library 
有很多朋友给了一些提示,但是还是没有解决!希望大家能够再抽出点时间来看看这个问题.
1.有人说是好像是ado的问题;
2.有人说菜单“工程”--“引用”--添加“Microsoft ActiveX Data Object 2.X”库，重编译
  但是我查看了一下,这个库已经添加了;
3.有人说重新安装VB,不行就建一个新的工程重新引用原来的东东.
所以问题还是没有解决,大家遇到过类似的问题,请指教.附出错程序,如下:
Private Sub MDIForm_Load()
    Dim nowtime As Long     '当日最小编号
    Dim nexttime As Long    '下日最小编号
    ReDim g_tuX(1 To 41)
    ReDim g_tuY(1 To 41)
    Set g_Conn = New ADODB.Connection
    Set g_badRecordset = New ADODB.Recordset
    Set g_dataRecordset = New ADODB.Recordset
    Set g_RecordXY = New ADODB.Recordset
'    dlgBlack.Show
    frmData.Show
    g_nowTime = Format(Now, "yyyyMMdd00")
                ~~~~~~~                            指示这里Format有问题!!!!!
    g_nextTime = Format(Now + 1, "yyyyMMdd00")上面的Format是什么意思呢?

Answer 1

Format是格式化输得到的结果是字符串(string)，而楼主采用了long类型来接受，故而类型不匹配。

Answer 2

试了N遍了,都没有错 还是怀疑VB环境的错误，你把用Format的语句注释掉，
使用instr函数看看是不是报同样的错误，如果是更加能确定是环境的问题
C:\WINNT\system32\msvbvm60.dll  
这个文件不知道是否正常，修改时间2003年6月19日, 12:05:04 1385744字节还有个方法就是关闭VB相关的程序及开发环境 找个VB编写的程序安装包来安装替换一下
VB的运行库

Answer 3

g_nowTime = Format(Now, "yyyyMMdd00")
    g_nextTime = Format(Now + 1, "yyyyMMdd00")首先,format这个函数使用正确否?我查看了一下msdn,没有这种应用形式.

Answer 4

最新进展,我到   菜单“工程”--“引用”--中看了看  有一个库文件提示:
位于Microsoft Data Bending Clloection下面 在2个ISA...上面丢失
   ??: mwsamp ActiveX Control module
   定位:G:\WINDOWS\System\mwsamp.tlb
   语言:标准如果把这一项前面的对钩去掉,程序就能够运行了,这是怎么回事 呢?  谢谢!!