vb6 做的用于选择的弹窗，传入adorecordSet即可。