the code
at input form
public sub new()
mybase.new()
initializationcomponent()
oledbconnection1.open()
end sub
private sub button1_click(byval sender as system.object,byval e as system.eventargs)handles button1.click
dim sql as string
sql="insert into work(hour)values('"& maskedtextbox1.text &"')"
oledbdataadapter1.insertcommand.commandtext=sql
oledbdataadapter1.insertcommand.executenonquery()
end sub
at view form
private sub view_click(byval sender as system.object,byval e as system.eventargs)handles view.click
dim sql as string
sql="select hour from work"
oledbdataadapter1.selectcommand.commandtext=sql
dataset1.clear()
oledbdataadapter1.fill(dataset1,"work")
datagrid1.setdatabinding(dataset1,"work")
end sub