Access2000数据表在DBGRID中显示时，列不正常的宽。(10分)

我模仿实例用ACCESS2000做了一个图书馆的数据，有三个表，学生表，图书表，
和借阅记录表，但是当这几个表里无没任何记录时，则在DBGRID中显示时，各个表的
列宽是很正常的，但是如果我随便地在各个表中填加了数据时，在DBGRID中的某些
列则出奇地宽，
怎么做才能够做到让列宽正好适合文本内容，或固定一个宽度。


感谢各位。

Var
SQLString:String;
begin
SQLString:='select * from admin Order By 编号';
DataModule1.ADOquery1.SQL.Clear;
DataModule1.ADOquery1.SQL.Add(SQLString);
DataModule1.ADOquery1.Active:=True;
DBGrid1.Columns[0].FieldName:='编号';
DBGrid1.Columns[1].FieldName:='adminname';
DBGrid1.Columns[2].FieldName:='adminpass';
DBGrid1.Columns[3].FieldName:='Adminlevel';
DBGrid1.Columns[0].Width:=64;
DBGrid1.Columns[1].Width:=100;
DBGrid1.Columns[2].Width:=100;
DBGrid1.Columns[3].Width:=64;

end;
这是我自己写的程序里Copy出来的，给参考一下。

直接在程序中设置各列宽度，不要默认。