نحوه انتقال اطلاعات موجود از mdb به یک فایل متنی مثل notpad

[عیسی بهشتی]

سلام عزیزان در صورت امکان بفرمایند چگونه میتوان اطلاعات ذخیره شده در یک بانک مثل اکسس را به نت پد با تگ ها انتقال داد؟ یعنی هر فیلد درون دو تگ شروع وپایان قرار گیرد.
<da>1390</da>
1390 محتوای یک فیلد است
با تشکر فراوان:متفکر:

[M.T.P]

Dim Rst As New ADODB.Recordset
Dim StrNote As String
Dim IntFileNumber

Rst.MoveFirst
While Not Rst.EOF
StrNote = StrNote & "<da>" & Rst("FldName").Value & "</da>" & vbCrLf
Rst.MoveNext
Wend

IntFileNumber = FreeFile
Open "C:\Note.txt" For Output As IntFileNumber
Print IntFileNumber, StrNote
Close IntFileNumber

فقط پر کردن رکوردست به عهده شما

[عیسی بهشتی]

با تشکر از پاسخ تان