You can use ADO. Here's a sample code

LOCAL oCon AS ADODB.connection, ;
	oCmd AS ADODB.Command, ;
	oRs AS ADODB.RecordSet
oCon = CreateObject("ADODB.connection")
oCmd = CreateObject("ADODB.Command")
oRs = CreateObject("ADODB.RecordSet")
lcConStr = [Provider=Microsoft.Jet.OLEDB.4.0;] + ;
	[Data Source=E:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb;] + ;
	[Persist Security Info=False]

oCon.Open( lcConStr )			
oRs.ActiveConnection = oCon
oRs.Open("Select * FROM customers")
? oRs.Fields("CompanyName").Value

>I think that maybe i am wrong in the propety .connect, i don't know what to write in
>
>obj = createobject("RDS.Datacontrol")
>with obj
>.connect="DSN..." ??????
>
>endwith
>Can you help me ?
>Thanks