请问有关运行出错的问题!急用!

Question

运行程序之后提示:  Compile error, can't find project or library 出错的程序段如下:
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")
                ~~~~~~~                            指示这里有问题!!!!!
    g_nextTime = Format(Now + 1, "yyyyMMdd00")高手帮忙看看 这个是什么问题!!谢谢!!

Answer 1

补充  提示 Format  有问题

Answer 2

应该不是format的问题吧，按照那个英文提示，好像是ado的问题。

Answer 3

ado?没有用到这个吧?
能说的详细点么?
谢谢!

Answer 4

我倒～怎么说没有用到啊   Set g_badRecordset = New ADODB.Recordset
    Set g_dataRecordset = New ADODB.Recordset
    Set g_RecordXY = New ADODB.Recordset不是ADO是什么啊

Answer 5

菜单“工程”--“引用”--添加“Microsoft ActiveX Data Object 2.X”库，重编译