为什么使用trim()函数和使用date获取当前系统日期会出错

出错代码如下：
　　　If Not IsNumeric(Trim(txtsfzh.Text)) Or Len(Trim(txtsfzh.Text)) < 16 Or _
      Len(Trim(txtsfzh.Text)) = 17 Then　’错误指在trim      
        txtrzrq.Text =date'错误指在date我不懂的是为什么，我在另外一台XP系统的机子上调试是没错的
请各位大虾多指教，小弟在线等待
拜谢！！！！

解决方案 »

  1.   


        重新引用一下VBA库。
      

  2.   

    我重新引用VBA库，可是又出现了如下错误
    提示：
    　　实时错误‘－2147217888（80040e20)';
          提供者从用户的IRowseNoeify调用了一种方法尚未得到回复
    是不是我的机子又少了什么文件
    我不懂的出错在哪，请各位大虾多指教
    拜谢！！！！
    小弟在线等待
      

  3.   

    大虾，请明示
    顺便问一下
    　　Microsoft ActiveX Data objects 2.5 library
    要从哪个网站下载
      

  4.   

    缺少你所引用的库文件你可以试一下
    VBA.TrimTrim(txtsfzh.Text)
    如果这个运行正确，就是缺少你所引用的库文件逐个选中引用的项，看下面是否显示实际库文件的路径。这是数据库应用常见的问题，
    原来机器有office，转移到另一台机器上，没有装Office或者版本不同，导致数据库引擎库文件版本不同。
      

  5.   

    你可以新建一个工程，把所有文件导进去，加上引用Mdac 2.8 下载：
    http://www.microsoft.com/downloads/details.aspx?FamilyID=6c050fe3-c795-4b7d-b037-185d0506396c&displaylang=en
      

  6.   

    trim是VB的系统函数,如果有错误的话就是VB有问题!!
      

  7.   

    新建一VB工程，选择“VB企业版控件”，将所有的窗体与模块引入，即可在新工程中正常使用