how to reduce (delete) the fields?

[chsu]

Hi

I am struggled with modules so I need one field not multiple fields.

i.e.
AME00USD1
AME10USD1
AME20USD1
AUS00AUD1
AUS00USD1
AUS00USD1 - how to delete?
AUS00USD1 - how to delete?
AUS10AUS2
...
...

I wrote the modules. Here it is:
'WORLD - AMEUKEXXXXXP
Set rsStruc = dbStruc.OpenRecordset("AMEUKEXXPPP", dbOpenSnapshot)
rsStruc.MoveFirst
Do Until rsStruc.EOF
strBU = Right(rsStruc.Fields("BUSINESS_UNIT&quot, 3)
strBUDesc = rsStruc.Fields("Bu ShortDesc&quot
strCCC = rsStruc.Fields("CURCODE&quot
strP = rsStruc.Fields("PRACTICE&quot
strPDesc = rsStruc.Fields("DESCRIPTION&quot
'NAME - WORLD
strEnt = strBU & "XX" & strCCC & strP
strEnt2 = strBU & "XXUSD" & strP
strEntDesc = strBUDesc & " " & strPDesc
If strEnt1 <> strEnt And strP <> 0 Then Print #intName, strEnt & &quot;!&quot; & strEntDesc & &quot;!&quot; & strBU & strP & strNameEnd & strCCC & strNameEnd1
If strEnt1 <> strEnt And strP = 0 Then Print #intName, strEnt & &quot;!&quot; & strEntDesc & &quot;!&quot; & strBU & strP & strNameEnd & strCCC & strNameEnd1
If strEnt <> strEnt2 And strP <> 0 Then Print #intName, strEnt2 & &quot;!&quot; & strEntDesc & &quot;!&quot; & strBU & strP & &quot; ! !USD !0! ! ! ! !CHART! ! ! !CHART&quot;
If strEnt <> strEnt2 And strP = 0 Then Print #intName, strEnt2 & &quot;!&quot; & strEntDesc & &quot;!&quot; & strBU & strP & &quot; ! !USD !0! ! ! ! !CHART! ! ! !CHART&quot;
'OWNER - WORLD
If strEnt1 <> strEnt And strP <> 0 Then Print #intOwn, strBU & strLOC & &quot;!&quot; & strEnt & strOwnEnd
If strEnt <> strEnt2 And strP <> 0 Then Print #intOwn, strBU & strLOC & &quot;!&quot; & strEnt2 & strOwnEnd
strEnt1 = strEnt
strEnt = strEnt2
rsStruc.MoveNext
Loop
rsStruc.Close

If you know how to do, I really appreciate your help.

Thanks,
CHsu [sig][/sig]