Excel acessando o Access

[mamaott]

Prezados,

estou com uma duvida cruel.

Estou fazendo uma aplicação no excel em VBA que tem acesso ao Access.

Criei botões no excel para navegação no access, so que os botões não estão funcionando.

Veja o scrip do botão:

Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Programação\db_ado.mdb"

cn.Open

Set rs = New ADODB.Recordset

rs.Open "ADO", cn, adOpenDynamic, adLockOptimistic

rs.MoveNext

Me.Text_num.Value = rs.Fields(0)

Me.Text_nome.Value = rs.Fields(1)

Me.Text_trabalho.Value = rs.Fields(2)

obs:

eu consegui acessar normalmente.

Inseri dados e exportei dados normalmente.

mas navegar na tabela foi meu problema.

se vocês puderem me ajudar.

obrigado.

[LuisAlmeida]

boas,

Vê se com as alterações abaixo j'a funciona:

Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Programação\db_ado.mdb"

cn.Open

Set rs = New ADODB.Recordset

rs.Open "ADO", cn, adOpenDynamic, adLockOptimistic

rs.movefirst

while not rs.eof

Me.Text_num.Value = rs.Fields(0)

Me.Text_nome.Value = rs.Fields(1)

Me.Text_trabalho.Value = rs.Fields(2)

rs.MoveNext

WEND