Ado - Urgente

[ED - Claret]

Olá amigos, estou fazendo isso...

Dim Conexão As ADODB.Connection

Dim Tabela As ADODB.Recordset

Dim LOCALDOBANCO As String

LOCALDOBANCO = App.Path & "BD.mdb"

Conexão.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LOCALDOBANCO & ";Persist Security Info=False"

Tabela("Fator") = "Text"

Tabela.Update

Só que da erro na linha da conexão - Variavel de bloco não definida - erro 91

Onde estou errando???

Fiz referencia ao DAO 3.51 e tambem ao "Microsoft ActiveX Data Objects 2.8 Library"

Não funcionaaa

[kuroi]

encontrei alguns erros, ou faltaram alguns códigos.

em negrito estao as correções:

Dim Conexão As ADODB.Connection

Dim Tabela As ADODB.Recordset

Dim LOCALDOBANCO As String

Set Conexão = New ADODB.Connection

Set Tabela = New ADODB.Recordset

LOCALDOBANCO = App.Path & "\BD.mdb"

Conexão.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LOCALDOBANCO & ";Persist Security Info=False"

''Pra poder dar esses comandos em baixo, você deve passar alguma coisa para o RecordSet, senao vai dar erro. Exemplo, você não definiu qual tabela esta tentando atualizar. O certo seria você dar um select antes:

'' Set Tabela = Conexão.Execute ("Select * from Tabela")

Tabela("Fator") = "Text"

Tabela.Update

você tb não precisa adicionar referencia ao DAO para trabalhar com ADO.

[ED - Claret]

Já fiz as correções, só que agora da erro na linha em vermelho

Dim Conexão As ADODB.Connection

Dim Tabela As ADODB.Recordset

Dim LOCALDOBANCO As String

LOCALDOBANCO = App.Path & "\BD.mdb"

Set Conexão = New ADODB.Connection

Set Tabela = New ADODB.Recordset

Conexão.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LOCALDOBANCO & ";Persist Security Info=False"

Tabela.Open "SELECT * FROM Base", Conexao, adOpenKeyset, adLockOptimistic

Tabela("Fator") = "Text"

Tabela.Update

É erro "3001 - Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito."

[ED - Claret]

Já encontrei o erro, estava no nome Conexão, passei para Conexao sem o ascento...

Muito obrigado pela ajuda, amigo