Puedes utilizar un Recordset desconectado; por ejemplo: Dim Rs As ADODB.Recordset '--- Declarar el Recordset, definir sus campos y abrirlo Set Rs = New ADODB.Recordset Rs.Fields.Append "Descripcion", adVarChar, 50 Rs.Fields.Append "Precio", adCurrency Rs.Open , Nothing '--- Agregar algunos registros Rs.AddNew Array("Descripcion", "Precio"), Array("Tornillo", 0.75) Rs.AddNew Array("Descripcion", "Precio"), Array("Tuerca", 0.65) Rs.AddNew Array("Descripcion", "Precio"), Array("Clavo", 0.35) '--- Guardar en disco (*.adt) Rs.Save "c:\carpeta\articulos.adt", adPersistADTG '--- Cerrar y destruir el Recordset Rs.Close Set Rs = Nothing