How many records are you talking about?
In Excel, you can set up an external data  source and
have it populate an Excel sheet.
Then, you can refresh the data to update it.
Of course, that will only work if you're retrieving 65,000 records or less!
(I used Data -> Import External Data)
hope this helps,

ok, I get it, thanks!
Now, how can automate reading always from the same mdb?

This technique sets up a worksheet that ALWAYS reads from the mdb  you've
specified.
When you select the sheet with this external data, there is a toolbar that pops
up that
has an "Refresh All" button to update the sheet with the latest data  from the
mdb.
If you're trying to update it with VBA, then you use:

ActiveWorkbook.RefreshAll
it's been a while since I designed my sheet (a couple of years), but if I
remember correctly,
you either retrieve the entire Access table, or you retrieve data based on a
query stored in the MDB.

I believe that ADO will do this.... Not sure though... Anyone else??

An example using ADO

Sub GetData()
Const adOpenForwardOnly As Long = 0
Const adLockReadOnly As Long = 1
Const adCmdText As Long = 1
Dim oRS As Object
Dim sConnect As String
Dim sSQL As String
Dim ary

sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "c:\bob.mdb"

sSQL = "SELECT * From Contacts"
Set oRS = CreateObject("ADODB.Recordset")
oRS.Open sSQL, sConnect, adOpenForwardOnly, _
adLockReadOnly, adCmdText

' Check to make sure we received data.
If Not oRS.EOF Then
ary = oRS.getrows
MsgBox ary(0, 0) & " " & ary(1, 0) & ", " & ary(2, 0)
Else
MsgBox "No records returned.", vbCritical
End If

oRS.Close
Set oRS = Nothing
End Sub

You can also interact with the database itself using normal ODBC SQL
statements. Plenty of examples available with a Google search.

I wrote the following code:

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=K:\Registro de Planos\SRP
(SISTEMA REGISTRACION DE PLANOS)FINAL.mdb;DefaultDir=K:\Registro de
Planos;" _
), Array( _
"DriverId=25;FIL=MS
Access;MaxBufferSize=2048;PageTimeout=5;;UID=admin;")), _
Destination:=Range("a2"))
.CommandText = Array( _

some stuff here

"FROM `K:\Registro de Planos\SRP(SISTEMA REGISTRACION DE PLANOS)
FINAL`.`00_PLANOS_V` `00_PLANOS_V`" & Chr(13) & "" & Chr(10) & "WHERE
`00_PLANOS_V`.OBRA = 'numobra'))" & Chr(13) & "" & Chr(10) & "ORDER
BY `00_PLANOS_V`.ID")

Some struff here

End With
End Sub

I need to include some code  to ask me for a string varible
called "numobra", a then the query table must retrieve all the data
coincident with the string "numobra". See where statement.