Good Day,

Try replacing this line:

Set sTable = sWorkspace.OpenDatabase("c:\cmts2\cycle14\arpbal2.dbf")

with this

Set sTable = sWorkspace.OpenDatabase("c:\cmts2\cycle14")

This will "c:\cmts2\cycle14" will serve as ur DataBase container...