| Where | Type | Optional | Default | Description |
|---|---|---|---|---|
| RS | Variant | Recordset to add to MDB object. | ||
| TableName | String | yes | Name of the table. |
| ||
'Create RecordSet and MDB objects
Set ADORS = CreateObject("ADODB.Recordset")
Set MDB = CreateObject("RSConvert.MDB")
'Open table Orders
ADORS.Open "Orders", "DSN=ADOSamples"
'Add table "Orders" to database
MDB.AddRS ADORS
ADORS.Close
'Open table Payments
ADORS.Open "Payments", "DSN=ADOSamples"
'Add table "Payments" to database
MDB.AddRS ADORS
ADORS.Close
'Write MDB file to the client
Response.BinaryWrite MDB.GetBinary |