RUN TIME ERROR 3265

MACKEY 23/05/2010 14:29:46
#342558

ola, sou novo em programaçao e estava fazendo um programa de cadastro de livros para aprender como progrmar e mesmo seguinda a apostila quando tento cadastrar um livro ele me apresenta o erro 3265 [Ô] item nao pode ser encontrado na colecao correspondente ao nome ou ao ordinal solictado[Ô]

esta igualzinho...mas mesmo assim mostra esse erro, abaixo coloquei o fonte pra ver se alguem pode me ajudar, desde ja obrigado:

Public Sub comboeditoras(nomecombo As ComboBox)
Dim cnncomando As New ADODB.Command
Dim rstemp As New ADODB.Recordset
Dim i As Integer
[ô]On Error GoTo errcomboeditoras
[ô]executa a consulta EditorasEmOrdemAlfabetica
With cnncomando
.ActiveConnection = cnnbiblio
.CommandType = adCmdStoredProc
.CommandText = [Ô]EditorasEmOrdemAlfabetica[Ô]
Set rstemp = .Execute
End With
With rstemp
[ô]verifica se existe alguma editora cadastrada
If Not (.EOF And .BOF) Then
[ô]se existe, entao posiciona o apontador no
[ô]primeiro registro do rs
.MoveFirst
[ô]inicializa a variavel i que sera usada como
[ô]indice para a propriedade itemdata
i = 0
While Not .EOF
[ô]adiciona um item a combo com o nome da editora
nomecombo.AddItem !descrição, i
[ô]grava na propriedade itemdata desse o codigo da editora
nomecombo.ItemData(i) = !codigo
[ô]vai para o proximo registro do rs
.MoveNext
[ô]incrementa i
i = i + 1
Wend
End If
End With

saida:
Set cnncomando = Nothing
Set rstemp = Nothing
Exit Sub

[ô]errcomboeditoras:
[ô]With Err
[ô]If .Number <> 0 Then
[ô]MsgBox [Ô]nao foi possivel a leitura da tabela de editoras[Ô], _
[ô], vbInformation + vbOKOnly + vbApplicationModal, _
[ô][Ô]erro ao carregar combobox[Ô]
[ô].Number = 0
[ô]GoTo saida
[ô]End If
[ô]End With
End Sub


a linha que ele da o erro é a :

nomecombo.AddItem !descrição, i