点击保存修改，根据编号的起/止，动态插入表，编号是有型号+生产日期+四位顺序号组成。保存修改的按钮事件：

Dim count As  Integer
Dim q As String
Dim z As String
Dim pname  As String
Dim pprodate As String

pprodate = dtprodate.Value
Dim pDate As new Date(pprodate.Substring(0,4),pprodate.Substring(5,1),pprodate.Substring(7,2))
pname = proname.Value
q=txtboxq.Value
z=txtboxz.Value
count = CInt(z)-CInt(q)+1

bh = protype.Value & Format(pDate,"yyyyMMdd")
If count=0 Then
count=1
End If
\'链接数据库
Dim cmd As New SQLCommand

For i As Integer = 1 To count
    Dim nbh As String
    nbh =bh & Format(i,"0000")
    cmd.CommandText =" insert into recordproducts (productNo,productName) values (\'" & nbh & "\',\'" & pname & "\') "
    cmd.ExecuteNonQuery
Next

Tables("recordproducts").DataTable.Load()

1：数据库的表中已经插入了数据，为什么父窗口的中table不显示数据？

2：怎么更新父窗口的table？加上这句：Tables("recordproducts").DataTable.Load()这个foxtable程序就会崩溃。

第一次用狐表，请各位专家多多指教。拜托！！！