Export Query Result in Visual Basic

I am developing an application in which I need to export the query result. I am using Visual Basic and MS Access. In Access when you right click on the Query and click on "Export..." it opens up the Export Dialogbox and here you have the option to export the result of the query to Access database, Excel sheet, text file or in many other formats.

What I want to do is to open the same query export dialogbox in my visual basic through programming. So that when the user clicks on the button the visual basic program would open up the dialogbox and let the user to save the result of the query in all those formats.

Any reply is appreciated.
Thanks.

I think all those export goodies are Access specific. I don't know of a VB6 equivalent.

Export Access Tables to Excel Worksheet sample: Application uses DAO to list tables in Access database; you select one table at a time to export to new or existing excel workbook
http://www.freevbcode.com/source/export_excel.zip

Export Access Tables to Other Formats Using a SQL Statement sample:You can use a Common Dialog control placed on a form somewhere to use this, or set opnFilename to the complete path and filename with extension. Also you will need to have Microsoft DAO 3.51 or 3.6 referenced. From what I have seen and used so far, the table name must not have spaces in it to do this. I personally just temporarily renamed the table and then used it.

'declare
Dim opnFileName As String
Dim strTempStr As String
Dim tableName As String
Dim intFileSep As Integer
Dim DatabaseName As Database

'code
For intFileSep = Len(opnFileName) To 1 Step -1
If Mid$(opnFileName, intFileSep, 1) = "\" Then Exit For
Next intFileSep

strTempStr = "SELECT * INTO [dBase IV;DATABASE=" + _
Left$(opnFileName, intFileSep - 1) + "].[" + _
Left$(Right$(opnFileName, Len(opnFileName) - intFileSep), _
Len(Right$(opnFileName, Len(opnFileName) - intFileSep)) - _
4) + "]" & " FROM ["& tableName &"]"

DatabaseName.Execute strTempStr