dim sQl as string sQl = "insert into tbBarang(kodeBRG,namaBRG,hargaBRG) & _ (txtKodeBRG.text, txtnamaBRG.text, txthargaBRG.text) data1.database.execute sQl data1.refresh