Più dettagliato di così, ti ha scritto anche il codice già fatto.

Comunque in poche righe:

codice:
  dim rs as adodb.recordset

  set rs=db.execute("SELECT C1, C2, C3 FROM TAB1")
  
  if not rs.eof then
    dim ff as long, Riga as string, ind as integer

    ff=freefile
    Open App.Path & "\Nomefile.txt" For Output As #ff   
    
    while not rs.eof
       riga=""
       for ind=0 to rs.fields.count-1
         if not isnull(rs(ind)) then
           Riga = Riga & rs(ind)
         else
           Riga = Riga & " " 
         end if   
         if ind<rs.fields-count-1 then riga= riga & vbtab
       next
       print #ff, riga
       rs.movenext
    wend
    close #ff
  end if