Mike, Thank You - I'll check it tomorrow!

I thought it would be something with

CreateObject("Access.application")

and linking to some Access DLL library to get the Access
object model ... but if your way works - it is good enough
for me!

Ron



-----Original Message-----
Ron,

You can use ADO

Private Sub CommandButton1_Click()

Set objConnection = CreateObject("ADODB.Connection") '
Set objrs = CreateObject("ADODB.Recordset")
objConnection.Provider = "Microsoft.Jet.OLEDB.4.0"

strSQL = "SELECT label1, date1 "
strSQL = strSQL & "FROM values "

objConnection.Open
objrs.Open strSQL, objConnection

x = 1
Do While Not objrs.EOF
Range("A" & x) = objrs("label1")
Range("B" & x) = objrs("date1")
x = x + 1
Loop


End Sub




Mike Tomasura

"Ron" wrote in
message
...
I have an Access database c:\test\val.mdb
In this database I have a table "values". Values has the
fields "label1" and "date1". date1 is unique.

Now from Excel VBA I want to read label1 from this table
with date1 as key.

Can someone tell me how this is done?

Please be specific (an example would be best) - also
indicate which references I need to include in VBA to
use
Access functionality

Ron


.