Write DAO.recordset to text file in FASTA format for nucleotide alignment

write_fasta.vb

Sub writefasta()

Dim fso As Object, ofile As Object
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT ('>' & WHNO & '_' & Tisssue & '_' & Gene) AS ID, Sequence FROM Sheet1 WHERE Gene = 'IGS';")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ofile = fso.createtextfile("C:\Users\Mgritts\Documents\WildlifeHealth\BigGame\Sequences\fasta.txt")

rs.MoveFirst
With rs
    Do Until .EOF
        ofile.writeline !ID
        ofile.writeline !Sequence
        .MoveNext
    Loop
End With

rs.Close
ofile.Close
Set fso = Nothing
Set ofile = Nothing
Set rs = Nothing

End Sub