'Use this in a VB form.
Private Sub cmdInsRsp_Click()
    On Error GoTo ErrorHandler

    Dim oConn As ADODB.Connection
    Dim oCmd As ADODB.Command

    Dim m_xmlResp As String
    m_xmlResp = xmlDOM.xml
    Set xmlDOM = Nothing

    Set oConn = New ADODB.Connection
    With oConn
        .ConnectionString = "Memo"
        .ConnectionTimeout = 10
        .Open
    End With

    Set oCmd = New ADODB.Command
    With oCmd
        .ActiveConnection = oConn
        .CommandText = "InsertResp"
        .Parameters.Append .CreateParameter("m_rsp", adLongVarWChar,
adParamInput, 63000, m_xmlResp)
        .Execute
    End With

    Exit Sub

ErrorHandler:

    Debug.Print Err.Description
End Sub

Try

With oCmd
        .ActiveConnection = oConn
        .CommandType =adCmdStoreProc
        .CommandText = "InsertResp"
        .Parameters.Append .CreateParameter("m_rsp", adLongVarWChar,
adParamInput, 63000, m_xmlResp)
        .Execute
    End With

Sukesh