ERRO NA ATUALIZACAO

V8SISTEMAS 10/01/2011 18:43:13
#361786

Pessoal, estou fazendo uma rotina de atualização no vb2008
A rotina é essa:
TB = New ADODB.Recordset
TB.CursorLocation = ADODB.CursorLocationEnum.adUseClient
TB.Open([Ô]Select * from forma_pagamento where id_fp = [ô][Ô] & txt_codigo_forma_pagamento.Text & [Ô][ô][Ô], Conexao, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
If (TB.RecordCount > 0) Then
txt_codigo_forma_pagamento.Text = TB([Ô]id_fp[Ô])
end if

Esta dando erro na linha txt_codigo_forma_pagamento.text = tb![Ô]id_fp[Ô])

alguem consegue me dar uma sugestão?

Abraço a todos.