在VB操作界面以表的形式写多条数据然后插入到数据库中？该如何处理

在VB操作界面以表的形式写多条数据然后插入到数据库中？？？
想做一个进销存的软件。
比如一次进货很多，怎样实现在一个表的形式下把所进的货一次写入，然后点击入库按扭一次写入数据库呢？？
请各位帮帮忙吧。。

------解决方案--------------------
直观的方法你可以用MSHFlexGrid控件来显示要入库的信息。举个简单的例子，在一个Form上加2个text控件,用来分别用来输入品名和数量，再加2个command分别确认输入和提交，在加一个MSHFlexGrid用来显示输入的数据


Private Sub Form_Load()

'初始化fg fg是 MSHFlexGrid的名称
fg.Rows=2
fg.Cols=3
fg.TextMatrix(0, 0)= "序号 "
fg.TextMatrix(0, 1)= "品名 "
fg.TextMatrix(0, 2)= "数量 "

End Sub

Private Sub Command1_Click()

'向MSHFlexGrid中写数据

If fg.TextMatrix(MSHFlexGrid.Roes-1, 0) <> " " then
fg.rows =fg.Rows+1
End if
fg.TextMatrix(fg.rows-1, 0)=fg.rows-1
fg.TextMatrix(fg.rows-1, 1)=Text1
fg.TextMatrix(fg.rows-1, 2)=Text2

End sub

Private Sub Command2_Click()

'提交数据
dim i
dim sql
dim cn as new adodb.connection
cn.open "连接数据库字符串 "
for i=1 to fg.rows-1
sql= "insert into tb(f1,f2) values( ' "& fg.TextMatrix(i, 1)= & " ', "& fg.TextMatrix(i, 2)= & ") "
cn.execute sql
next i

End Sub

就这个意思，代码随手写的，没有测试