为什么老是出错？

我的程序如下，不知道怎么老是提示说实时错误'-2147217900(80040e14)',
Dim CN   As New adodb.Connection
    Dim RS   As New adodb.Recordset
    
    CN.ConnectionString = "Driver={Microsoft ODBC for Oracle};Server=cgd;Uid=cgd;Pwd=cgd;"
    CN.Mode = adModeReadWrite
    CN.Open
    Dim a
    a = Format(Now, "YYYY/MM/DD")
    Sql = "insert into ROOM(RO_NUM,RO_NAM,RO_TYP,RO_BU_NUM,RO_FL_NUM,RO_BUI_ARE,RO_UTI_ARE,RO_BUI_TIM,BU_USE,BU_REM)"
    Sql = Sql & " VALUES(1,2,3,4,5,6,7,12-六月-2003,9,10)"
     CN.Execute Sql