I have a problem how coding line in VB 6.0: reduction the one base by means shrink in SQL Sever