VB.net: DELETE all rows in datagrid using MS Access -

sub deleterecords()

dim qry string = "select * attendance" dim datesttbl new oledbdataadapter(qry, con1) dim cbtesttbl new oledbcommandbuilder(datesttbl) dim dttesttbl new datatable("attendance")  try     datesttbl.fill(dttesttbl)      each dr datarow in dttesttbl.rows         dr.delete()     next      datesttbl.update(dttesttbl)     dttesttbl.dispose()     datesttbl.dispose() catch ex exception     msgbox(ex.message)  end try 

an error pops when running program. may have help?

this error

dynamic sql generation delete command not supported against select command not return key column information.