Here is the code:
Dim ad
Dim sql_query
Dim objFSO, objOutFile
Dim intCount, i
Set objFSO = CreateObject("Scripting.FileSystemObject") 'create and open text file
Set objOutFile = objFSO.OpenTextFile("C:\tabdelimitout.txt", 8, True)
sql_query = "SELECT * FROM MyTable" 'sql query
set ad = CreateObject("ADODB.Connection") 'create and open ODBC connection
ad.ConnectionString= "ODBC;DSN=fk32y;UID=me"
ad.Open
Set rs = ad.execute(sql_query) 'execute query
intCount = rs.Fields.Count
do while not rs.eof 'loop to cycle through the table
for i = 1 to intCount 'loop to cycle through fields of each table and write to file
objOutFile.Write rs.fields.item(i) & vbTab
next
objOutFile.WriteLine vbCrLf 'newline
loop
ad.close
Don't worry about the details with writing it to a text file, I am just working on getting the connection and then I will worry about that.
BTW, this is a relativity database.