Ron,

use Data Source=c:\test\val.mdb

You might have a problem using "values" in the SQL statement. You might want
to rename it to tblValues



Private Sub CommandButton1_Click()

Set objconnection = CreateObject("ADODB.Connection") '
Set objrs = CreateObject("ADODB.Recordset")
connectString = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\test\val.mdb"

strSQL = "select label1, date1 "
strSQL = strSQL & "from tblValues"

objconnection.Open connectString
objrs.Open strSQL, objconnection

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

End Sub



Michael Tomasura
--

"Ron" wrote in message
...
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


.