Hi Ahmad.

You have two choices: ADO or DAO

For ADO you must use some like this:

'First, open a Reference to Microsoft ActiveX Data Objects Libray
sqlStatment = "SELECT YourField1, YourField2, .., YourFieldN FROM YourTable ..."
YourConnection.Open DSNToYourDataBase
Set YourRs = YourConnection.Execute sqlStatment
.
.
.

For DAO you must use some like this:

'First open a Reference to Microsoft Data Access Objects
sqlStatment = "SELECT YourField1, YourField2, .., YourFieldN FROM YourTable ..."
Set YourDatabase = YourWorkSpace.OpenDatabase("......")
Set YourRs = YourDataBase.OpenRecordset(sqlStatment)
.
.
.

Bye.


German