vb6怎么写数据给sql server里面geometory类型的列

我有sql server 2008里面某个表格tbl的某列col是geometory类型的现在无论我怎么定义我的adodb.parameter似乎都不对    Dim para As ADODB.Parameter
    Set objCommand = New Command
    With objCommand        Set para = .CreateParameter("@g", adPropVariant, adParamInput, , strSQLPara) '--怎么写似乎都不成
        .Parameters.Append para
        .ActiveConnection = g_objConnection
        .CommandType = adCmdText
        .CommandTimeout = m_lngTimeout
    End With两种错误，一就是无法定义para。
Parameter object is improperly defined. Inconsistent or incomplete information was provided.另一种就是定义成advariant这样可以定义para了但是excute的时候又有错误有没有人经历过？怎么解决的？谢谢