Visual Basic - hacer una busqueda maestro detalle en red

este es el codigo para hacer la consulta del consecutivo pero no mefunciona en red
este es el mismo problema que le mande del correo [email protected]
Private Sub CMB_ORDEN_COMPRA_Click()
CMB_ORDEN_COMPRA.Visible = True
CMB_ORDEN_COMPRA.Enabled = False
TBL_PEDIDOENCABEZADOINTERNO.Index = "PrimaryKey"
TBL_PEDIDOENCABEZADOINTERNO.Seek "=", CMB_ORDEN_COMPRA
On Error Resume Next
TXT_NUMERO_PEDIDO = TBL_PEDIDOENCABEZADOINTERNO.Fields("NUMERO_PEDIDO")
CMB_NOMBRE_EMPLEADO = TBL_PEDIDOENCABEZADOINTERNO.Fields("NOMBRE_EMPLEADO")
On Error Resume Next
TBL_PACIENTES.Index = "PrimaryKey"
TBL_PACIENTES.Seek "=", CMB_PACIENTE
FRM_PEDIDO_INTERNO.CMB_NOMBRE_EMPLEADO = TBL_PEDIDOENCABEZADOINTERNO.Fields("NOMBRE_EMPLEADO")
FRM_PEDIDO_INTERNO.CMB_PACIENTE = TBL_PEDIDOENCABEZADOINTERNO.Fields("CEDULA_PACIENTE")
FRM_PEDIDO_INTERNO.TXT_NOMBRE_PACIENTE = TBL_PEDIDOENCABEZADOINTERNO.Fields("NOMBRE_PACIENTE")
FRM_PEDIDO_INTERNO.TXT_ENTIDAD = TBL_PEDIDOENCABEZADOINTERNO.Fields("EMPRESA_ENTIDAD")
FRM_PEDIDO_INTERNO.TXT_DESCRIPCION = TBL_PEDIDOENCABEZADOINTERNO.Fields("DESCRIPCION_MEDICA")
FRM_PEDIDO_INTERNO.TXT_DIRECCION = TBL_PEDIDOENCABEZADOINTERNO.Fields("DIRECCION")
FRM_PEDIDO_INTERNO.TXT_FECHA_APROBACION = TBL_PEDIDOENCABEZADOINTERNO.Fields("FECHA_APROBACION")
FRM_PEDIDO_INTERNO.TXT_USUARIO_MODIF = TBL_PEDIDOENCABEZADOINTERNO.Fields("USUARIO_MODIF")
TXT_FECHA_MODIF = Date
FRM_PEDIDO_INTERNO.TXT_FECHA_MODIF = TBL_PEDIDOENCABEZADOINTERNO.Fields("FECHA_MODIF")
TBL_PEDIDODETALLEINTERNO.MoveFirst
L = 0
For K = 1 To TBL_PEDIDODETALLEINTERNO.RecordCount
If CMB_ORDEN_COMPRA = TBL_PEDIDODETALLEINTERNO.Fields("NUMERO_PEDIDO") Then
On Error Resume Next
Text1(L) = TBL_PEDIDODETALLEINTERNO.Fields("CODIGO")
Combo1(L) = TBL_PEDIDODETALLEINTERNO.Fields("NOMBRE_PRODUCTO")
Text2(L) = TBL_PEDIDODETALLEINTERNO.Fields("CANTIDAD_SOL")
L = (L + 1)
End If
TBL_PEDIDODETALLEINTERNO.MoveNext
Next K
CMB_ORDEN_COMPRA = ""
'************************
TXT_NUMERO_PEDIDO.Enabled = False
CMB_NOMBRE_EMPLEADO.Enabled = False
CMB_PACIENTE.Enabled = False
CMB_ENTIDAD.Enabled = False
TXT_DESCRIPCION.Enabled = False
TXT_FECHA_APROBACION.Enabled = False
TXT_FECHA_MODIF.Enabled = False
For L = 0 To 10
Label3 = ""
On Error Resume Next
Combo1(L).Enabled = False
Text1(L).Enabled = False
Text2(L).Enabled = False
Next L
CMD_GRABAR.Enabled = False
End Sub