
Aqui os engancho el código para ver si alguien sabe donde podria estar el error....

MUCHAS GRACIAS

bSuccess=Init(xtra"ADOxtra")
put Version (xtra "ADOxtra")
cnn=createObject(xtra"ADOxtra",#connection)
if objectP(cnn) then
put "ADO version:"&&cnn.Version
else
put "Error:"&&cnn
end if
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & the moviePath & "DemoDB.mdb")
if cnn.succeeded then
put "Connection state:"&&cnn.State
else
put "Error:"&&cnn.lastError
end if
connectionString=BuildConnectionString(xtra"ADOxtr a")
rst=cnn.Execute("SELECT * FROM DemoTable ORDER BY Name") -- Opening recordset
if rst.state=rst.adStateOpen then
repeat while not rst.eof -- Enumerating records
put rst.Fields["Name"] -- Processing record
rst.MoveNext() -- Moving to the next record.
end repeat
rst.close() -- Closing recordset
end if