关于ADODB.Parameter，十分急！！

Question

我要使用ADODB.Command执行插入操作
使用的数据库是Access 95格式，数据类型是Text
需要插入时的，DataType是adVarChar
但是，在构造Parameter时设置Type属性为adVarType，然后使用字符串变量为Value付值，但是在执行Command.Parameters.Append时，总是出现Runtime Error "3708"，“不正常地定义参数对象，提供了不一致或不完整的信息”。
请问应该怎样设置.Value才能够成功呢？BTW：不论Type设成adVarChar,adChar,adVarWChar,adWChar都不行，如果设置成adBSTR可以Append参数对象，但是执行Command对象时，还是出错，“字符串右截断”

Answer 1

Set cmd = New Command
    With cmd
        Set .ActiveConnection = conn
        .CommandType = adCmdText
        .CommandText = "INSERT INTO test (s, i, l, d, da) VALUES (?, ?, ?, ?, ?)"
    End With
    Dim param As ADODB.Parameter    Set param = New Parameter    With param
        .Direction = adParamInput
        .Type = adVarChar
        .Value = "haha"
    End With
    cmd.Parameters.Append param      '执行到这一句时出错
    '后面略