Import the data here by using this sub to parse it , then break it up into records for your combo....
Code:
Sub breakup()
Dim vWord,vLine
open "c:\folder\file.txt" for input as #1
Line Input 1, vLine
i= instr(vLine,"|")
while I > 0
VWord =left(vLine,I-1)
VLine=mid(vLine,I+1)
Docmd.runSql "insert into tColours (colour) values ('" & vWord & "')"
i= instr(vLine,"|")
wend
Docmd.runSql "insert into tColours (colour) values ('" & vLine & "')"
close 1
end sub
now your colors are in the table as should be.