Use VBA to auto-adjust column widths of subform

[Guest]

Using Office 2003 and Windows XP:

Is it possible to auto-adjust the column widths of a subform in datasheet
view using VBA?

What I would like is to simulate a double-click on the column header divider
that adjusts the column width of the current column - only have the VBA loop
through each column.

IF possible, could someone please post generic code to do this?

Thanks much in advance.