Operação não permitida quando objeto esta fechado

[Rodrigo Hoffmann]

Olá

Estou com esse problema em vba

alguém consegue me ajudar por favor

Dim cnn             As ADODB.Connection
    Dim CMD             As ADODB.Command
    Dim Prm             As New ADODB.Parameter
    Dim rst             As ADODB.Recordset
    Set rst = CreateObject("ADODB.Recordset")
    Set cnn = CurrentProject.Connection

    Set CMD = New ADODB.Command
    Set CMD.ActiveConnection = cnn
    CMD.CommandText = "dbo.[Formulario Subformulario PRD_PRE_PEDIDO_CHECK_CONSUMO]"
    CMD.CommandType = adCmdStoredProc
    Set Prm = CMD.CreateParameter("@Referencia", adInteger, adParamInput, , Nz(Me.ReferenciaCodigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@MATERIAL", adInteger, adParamInput, , Nz(Me.MaterialCodigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material1", adInteger, adParamInput, , Nz(Me.MaterialNivel1Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material2", adInteger, adParamInput, , Nz(Me.MaterialNivel2Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material3", adInteger, adParamInput, , Nz(Me.MaterialNivel3Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material4", adInteger, adParamInput, , Nz(Me.MaterialNivel4Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material5", adInteger, adParamInput, , Nz(Me.MaterialNivel5Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material6", adInteger, adParamInput, , Nz(Me.MaterialNivel6Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material7", adInteger, adParamInput, , Nz(Me.MaterialNivel7Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material8", adInteger, adParamInput, , Nz(Me.MaterialNivel8Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material9", adInteger, adParamInput, , Nz(Me.MaterialNivel9Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Cor", adInteger, adParamInput, , Nz(Me.ProdutoNivel5, Null))
    CMD.Parameters.Append Prm
    Set rst = CMD.Execute
    If rst.EOF Then
    MsgBox "SEM CONSUMO", vbOKOnly
    End If

O erro que dá é: OPERAÇÃO NÃO PERMITIDA QUANDO OBJETO ESTA FECHADO

Editado Novembro 8, 2010 por quintelab
Removido Caixa Alta do título e adicionado BBCode Code