首先，咱们来拆解你遇到的错误：“将varchar数据类型转换为datetime数据类型导致值超出范围”，主要有两个核心原因：

• SQL Server的datetime类型不支持0000-00-00 00:00:00这个值（它的最小有效日期是1753-01-01）
• 你通过字符串拼接生成INSERT语句，cDate转换后的日期字符串格式可能和SQL Server预期的格式不匹配，或者遇到了Oracle里的特殊日期值

另外，原代码的SQL字符串拼接方式还存在SQL注入风险，也容易因为格式细节出错，咱们一起把这些问题都解决掉：

优化后的解决方案代码 #

SQL = " SELECT DATE_R, DATE_I, DATE_E FROM ""XXX"".""tbl_oracle_Server"""
set Rs = CreateObject("ADODB.Recordset") 
Rs.Open SQL, cn 

If Not Rs.EOF then 
    ' 创建参数化的INSERT命令，避免SQL注入和日期格式问题
    Set cmd = CreateObject("ADODB.Command")
    cmd.ActiveConnection = ca ' ca是SQL Server的连接对象
    cmd.CommandText = "INSERT INTO [XXX].[XXX].[tbl_sql_Server] (DATE_R, DATE_I, DATE_E) VALUES (?, ?, ?)"
    
    ' 定义参数：135对应adDBTimeStamp，适配SQL Server datetime类型
    cmd.Parameters.Append cmd.CreateParameter("DATE_R", 135, 1)
    cmd.Parameters.Append cmd.CreateParameter("DATE_I", 135, 1)
    cmd.Parameters.Append cmd.CreateParameter("DATE_E", 135, 1)

    Do While Not Rs.EOF 
        ' 处理DATE_R：空值或无效日期转为NULL，否则直接取字段值
        If IsNull(Rs("DATE_R")) Or Rs("DATE_R") = "" Then
            cmd.Parameters("DATE_R").Value = Null
        Else
            ' 直接使用Oracle读取的日期值，无需手动转字符串
            cmd.Parameters("DATE_R").Value = Rs("DATE_R")
        End If

        ' 处理DATE_I
        If IsNull(Rs("DATE_I")) Or Rs("DATE_I") = "" Then
            cmd.Parameters("DATE_I").Value = Null
        Else
            cmd.Parameters("DATE_I").Value = Rs("DATE_I")
        End If

        ' 处理DATE_E
        If IsNull(Rs("DATE_E")) Or Rs("DATE_E") = "" Then
            cmd.Parameters("DATE_E").Value = Null
        Else
            cmd.Parameters("DATE_E").Value = Rs("DATE_E")
        End If

        ' 执行参数化命令
        cmd.Execute
        
        Rs.MoveNext 
    Loop 
    Set cmd = Nothing
End IF 

Rs.Close() 
Set Rs = Nothing 
ca.Close() 
Set ca = Nothing 
cn.Close() 
Set cn = Nothing

关键改动说明 #

• 替换无效日期值：SQL Server不接受0000-00-00，所以把空/无效日期转为NULL（如果业务需要默认值，可以改成'1753-01-01 00:00:00'，但要确保字段允许该值）
• 使用参数化查询：彻底避免了字符串拼接带来的格式问题和SQL注入风险，ADODB驱动会自动处理Oracle到SQL Server的日期类型映射
• 简化空值判断：直接用IsNull()检查字段是否为空，比原代码的trim(Rs("DATE_R") & "[]") = "[]"更可靠
• 跳过不必要的转换：不需要用cDate()把Oracle日期转成VBScript日期再转字符串，直接将Recordset中的日期值赋值给参数，减少转换出错概率

额外优化：Oracle端提前处理无效日期 #

如果Oracle里存在0000-00-00这类SQL Server不支持的日期值，你可以在Oracle查询阶段就过滤掉，让后续代码更简洁：

SELECT 
    CASE WHEN DATE_R = TO_DATE('0000-00-00', 'YYYY-MM-DD') THEN NULL ELSE DATE_R END AS DATE_R,
    CASE WHEN DATE_I = TO_DATE('0000-00-00', 'YYYY-MM-DD') THEN NULL ELSE DATE_I END AS DATE_I,
    CASE WHEN DATE_E = TO_DATE('0000-00-00', 'YYYY-MM-DD') THEN NULL ELSE DATE_E END AS DATE_E
FROM "XXX"."tbl_oracle_Server"

内容的提问来源于stack exchange，提问作者user13975168