CAD成图系统提示找不到主键

系统提示找不到主键 ，如何调整，提示问题出在最后一行
Me.Caption = "正在绘制双线"

If CheckBox4.Value = True Then
Dim linelayername As String
Dim GL As String
RSL.MoveFirst
rsp.MoveFirst
Dim points(0 To 3) As Double: Dim StartWidth As Double: Dim EndWidth As Double
Dim SEGMENT As Long
SETMENT = 0
Do Until RSL.EOF
If IsNull(RSL!NX) Or IsNull(RSL!X) Or IsNull(RSL!管线起点号) Then GoTo MYNEXT
GL = Left(RSL!管线起点号, 2)
points(0) = RSL!X: points(1) = RSL!y: points(2) = RSL!NX: points(3) = RSL!NY
Set lineObjm = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
lineObjm.LAYER = GL & "LINE1"

你的表怎么定义的，要定义主键列，否则没法修改和删除，因为没法知道你要修改的哪一行。