public sub datafill(byval datagrid1 as datagrid, byval strsql as string, byval dt as string) oledbconnection1.connectionstring = strconnection oledbdataadapter1.selectcommand.connection = oledbconnection1 oledbdataadapter1.selectcommand.commandtext = strsql oledbconnection1.open() oledbdataadapter1.fill(dataset1, dt) 'datagrid1.datasource = dataset1.tables(dt) 'datagrid1.databind() oledbconnection1.close() end sub