Sub SaveADO_RS
   Dim cnn As New ADODB.Connection
   Dim rst As New ADODB.Recordset
   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
   "Data Source=C:\Nordwind.mdb;"
   rst.Open "SELECT * FROM Kunden WHERE [AD_Updatet]=.........", cnn,
   adOpenKeyset,adLockOptimistic
   rst.Save "C:\Ausgabedatei.adtg", adPersistADTG
   rst.Close
   cnn.Close
End Sub