with thisform.list1 .ColumnCount=3 .ColumnWidths='45,270,100' .RowSourceType=2 .RowSource=TableToSearch+'.c_codigo,c_descri,c_cp' .refresh endwith