Access module sample 2 ( Query Def)

Sub writedown1()

Dim Db As Database, D As Recordset, QD As QueryDef
Dim str_message As String

Set Db = DBEngine.Workspaces(0).Databases(0)

Set QD = Db.CreateQueryDef("Q_serial", "Select * from sample order by sample2")
Set D = Db.OpenRecordset("Q_serial", DB_OPEN_DYNASET)

Do Until D.EOF

str_message = str_message & D!sample & "," & D![sample2] & vbCrLf


D.MoveNext

Loop

Db.QueryDefs.Delete "Q_serial"

MsgBox str_message

End Sub