exporting a tab delimited file from an access database

db = "C:Dokumente und EinstellungenhomAnwendungsdatenBayWotch4Neuer Ordnerbaywotch.db5"
TextExportFile = "C:Dokumente und EinstellungenhomAnwendungsdatenBayWotch4Neuer OrdnerExp.txt"

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open _
   "Provider = Microsoft.Jet.OLEDB.4.0; " & _
   "Data Source =" & db

strSQL = "SELECT * FROM tblAuction1"

rs.Open strSQL, cn, 3, 3

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.CreateTextFile(TextExportFile, True, True)

a = rs.GetString

f.WriteLine a

f.Close

Const Access = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:Dokumente und EinstellungenhomAnwendungsdatenBayWotch4Neuer Ordnerbaywotch.db5"
Const SQLServer = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Data Source=.SQLEXPRESS"
Dim arrFields

Set SQLConn = CreateObject("ADODB.Connection")
WITH SQLConn
    .ConnectionString = SQLServer
    .Open
End WITH
Set AccessConn = CreateObject("ADODB.Connection")
WITH AccessConn
    .ConnectionString = Access
    .Open
End WITH
Set SQLRS = CreateObject("ADODB.Recordset")
WITH SQLRS
    .CursorType = 3
    .LockType = 3
End WITH
Set AccessRS = CreateObject("ADODB.Recordset")
WITH AccessRS
    .ActiveConnection = AccessConn
    .CursorType = 3
    .LockType = 3
End WITH

strSQL = "SELECT * FROM tblAuction1"
AccessRS.Open strSQL

If AccessRS.RecordCount <> 0 Then
    AccessRS.MoveFirst
    ReDim arrFields(AccessRS.Fields.Count)
    Do Until AccessRS.BOF OR AccessRS.EOF
    	For i = 0 To AccessRS.Fields.Count - 1
    		If AccessRS.Fields(i).Type = 202 Then
    			arrFields(i) = Chr(39) & AccessRS.Fields(i).Value & Chr(39)
    		Else
    			arrFields(i) = AccessRS.Fields(i).Value
    		End If
    	Next
    	strSQL1 = "INSERT INTO {Table in mySQL} VALUES("
    	For j = 1 To UBound(arrFields) - 2
    		strSQL1 = strSQL1 & arrFields(j) & ","
    	Next
    	strSQL1 = strSQL1 & arrFields(UBound(arrFields) - 1) & ")"
    	SQLRS = SQLConn.Execute(strSQL1)
    	AccessRS.MoveNext
    Loop
Else
    MsgBox "No records found"
End If