How to export table data into text file using VB6

I have the following sql statement that I use right now to export a database table into an excel spreadsheet using an automation process. Unfortunantly not all can be exported as excel files and instead need to be exported as a text file with tab delimitations. Can anyone help me change the sql statement I included below to make it instead export to a tab delimited text file. You help is welcomed. Thanks,

Dim DAODB As Database

'EXPORTS TABLE IN ACCESS DATABASE TO EXCEL
Set DAODB = OpenDatabase(strDB)

'If excel file already exists, you can delete it here
If Dir(strExcel) <> "" Then Kill strExcel

DAODB.Execute ("SELECT * INTO [Excel 8.0;DATABASE=" & strExcel & "].[" & _
strWorksheet & "] FROM " & "[" & strTable & "]")
DAODB.Close

hi radhakrishnan,
U try this code this wil work correctly

Set rs = db.OpenRecordset("select * from " & tablelst) ' tablelst-this is yr table name
tmp_val = ""
If Not rs.EOF Then
rs.MoveLast
rcount = rs.RecordCount
rs.MoveFirst
Close
Open App.Path & "\" & tablelst & ".txt" For Output As #1
For i = 0 To rs.Fields.Count - 1
If i < rs.Fields.Count - 1 Then
tmp_val = tmp_val & rs.Fields(i).Name & vbTab
ElseIf i = rs.Fields.Count - 1 Then
tmp_val = tmp_val & rs.Fields(i).Name
End If
Next i
tmp_val = tmp_val & vbCrLf
While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
tmp_val = tmp_val & rs.Fields(rs.Fields(i).Name) & vbTab
Next i
tmp_val = Mid(tmp_val, 1, Len(tmp_val) - 1)
tmp_val = tmp_val & vbCrLf
rs.MoveNext
DoEvents
Label1.Caption = rs.AbsolutePosition & "/" & rcount
Wend
Print #1, tmp_val
End If
MsgBox "Process Completed"

regards,
kalaivani murali...