Mike,

just tried it.... where do I make the link to my database
c:\test\val.mdb ?

Now the Objconnection.open fails - probably because I
don't tell where to open.

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


.