vb.net - how to add datagridview records - closed -

when try save record, wont show in datagridview until close form , run again

  private sub btnsave_click(byval sender system.object, byval e system.eventargs) handles btnsave.click              provider = "provider=microsoft.ace.oledb.12.0;data source ="             'change following access database location             datafile = "c:\users\dell\downloads\windowsapplication1\windowsapplication1\database1.accdb"             connstring = provider & datafile             myconnection.connectionstring = connstring             myconnection.open()             dim str string             str = "insert tblodr ([id], [office], [elements], [objectives], [initiatves]) values (?, ?, ?, ?, ?)"             dim cmd oledbcommand = new oledbcommand(str, myconnection)             cmd.parameters.add(new oledbparameter("upc", ctype(idtextbox.text, string)))             cmd.parameters.add(new oledbparameter("item", ctype(officetextbox.text, string)))             cmd.parameters.add(new oledbparameter("cost", ctype(elementstextbox.text, string)))             cmd.parameters.add(new oledbparameter("price", ctype(objectivestextbox.text, string)))             cmd.parameters.add(new oledbparameter("quantity", ctype(initiatvestextbox.text, string)))             try                 cmd.executenonquery()                 cmd.dispose()                 myconnection.close()                 idtextbox.clear()                 officetextbox.clear()                 elementstextbox.clear()                 objectivestextbox.clear()                 initiatvestextbox.clear()             catch ex exception                 msgbox(ex.message)             end try           end sub 

the code below deleting purposes, need code adding/saving of records.

 try                 dim int integer = datagridview1.selectedrows(0).index                  datagridview1.rows.remove(datagridview1.selectedrows(0))                 ds.tables(0).rows(int).delete()                 da.update(ds, "datainfo")                 messagebox.show("success!")              catch ex exception              end try 

i solved it, i've added codes.. , in bindingnavigator,, have click plus (+) sign every time add record..woo :3 .. sorry being newbie

  private sub btnsave_click(byval sender system.object, byval e system.eventargs) handles btnsave.click             provider = "provider=microsoft.ace.oledb.12.0;data source ="             'change following access database location             datafile = "c:\users\dell\downloads\windowsapplication1\windowsapplication1\database1.accdb"             connstring = provider & datafile             myconnection.connectionstring = connstring             myconnection.open()             dim str string             str = "insert tblodr ([id], [office], [elements], [objectives], [initiatves]) values (?, ?, ?, ?, ?)"             dim cmd oledbcommand = new oledbcommand(str, myconnection)             cmd.parameters.add(new oledbparameter("id", ctype(idtextbox.text, string)))             cmd.parameters.add(new oledbparameter("office", ctype(officetextbox.text, string)))             cmd.parameters.add(new oledbparameter("elements", ctype(elementstextbox.text, string)))             cmd.parameters.add(new oledbparameter("objectives", ctype(objectivestextbox.text, string)))             cmd.parameters.add(new oledbparameter("initiatves", ctype(initiatvestextbox.text, string)))              try                  cmd.executenonquery()                 cmd.dispose()                 myconnection.close()                 me.validate()                 me.tblodrbindingsource.endedit()                 me.tblodrtableadapter.update(me.database1dataset.tblodr)             catch ex exception                 msgbox(ex.message)             end try         end sub