用VB作程序ACCESS做库需不需在ACCESS中设置关系？

我最近在做一个计件工资时遇到一个难题，请各位请教：

根据输入人员的要求要按手工报表格式输入电脑，而其手工报表是这样的：
第一张报表：批号20041101，型号800
外观组：王某某　1000套、张某某　1050套
防锈组：李某某　800套、钱某某　850套，庄某某　950套

第二张报表：批号20041101，型号810
外观组：王某某　1200套、张某某　1250套
防锈组：李某某　820套、钱某某　820套，庄某某　920套

型号表workgz：ID,型号，批号　　主关键字ID，自动编号
计件表JJGZ：姓名，数量，ID　　主关键字：ID，数字

如果用型号表的ID与计件表的ID关联（在ACCESS中操作）结果在录入时出错，
如果不关联当然不出错，但只有workgz的ID值变动而计件表JJGZ的ID却不变，郁闷。

请各位否分析一下原因，有否解决方法？

是否是我的程序有问题导致窗体上录入时型号表WORKGZ：ID不能与计件表JJGZ的ID同步？另外用VB作程序ACCESS做库需不需在ACCESS中设置关系？

Private Sub cmdok_Click()
Dim CNN2 As New ADODB.Connection
Dim CNN3 As New ADODB.Connection
Dim REC2 As New ADODB.Recordset
Dim REC3 As New ADODB.Recordset
Dim strcnn2 As String
Dim SqlStr2 As String
Dim SqlStr3 As String
strcnn2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\jjgz.mdb;Jet oledb:Database Password=;"
SqlStr2 = "Select * from workgz"
SqlStr3 = "Select * from jjgz"
CNN2.Open strcnn2
REC2.Open SqlStr2, CNN2, adOpenStatic, adLockOptimistic
With REC2
.AddNew
.Fields("批号") = txtph.Text
.Fields("型号") = txtitem.Text
.Update
End With

CNN3.Open strcnn2
REC3.Open SqlStr3, CNN3, adOpenStatic, adLockOptimistic
With REC3
.AddNew
.Fields("姓名") = txtzdname1.Text
.Fields("数量") = Val(lblzd1.Caption)
.Update
End With