dim dt as datatable = datagrid1.datasource
if dt is nothing
dt = new datatable
dt.columns.add("title",System.Type.gettype("System.String"))
dt.columns.add("alllong",System.Type.gettype("System.String"))
dt.columns.add("i",System.Type.gettype("System.String"))
end if