subform desvinculado continuo

Dim ws As DAO.Workspace
Dim db As DAO.Database
Dim RS As DAO.Recordset
Dim stRSql As String

On Error Resume Next
If codigo.Value > 0 Then
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("N:\DADOS\SERVICOS" & "\BDDADOS.mdb", False, False, "MS Access;PWD=senha")

stRSql = "SELECT * FROM ORDEM WHERE ORDEM = '" & Combinação25.Value & "'"
' Set db = CurrentDb
Set RS = db.OpenRecordset(stRSql)
If Not RS.BOF Then
Me.ORDEM = RS("ORDEM")
Me.CODCLIE = RS("CODCLIE")
Me.NOME = RS("CLIENTE")
Me.ENDERECO = RS("ENDERECO")
Me.BAIRRO = RS("BAIRRO")
Me.CEP = RS("CEP")
Me.MUNIC = RS("MUNIC")
Me.CPF = RS("CPF")
Me.IE = RS("IE")
Me.Veiculo = RS("Veiculo")
Me.Pl = RS("Placa")
Me.Cor = RS("Cor")
Me.KM = RS("KM")
Me.DATA = RS("DATA")
Me.COND = RS("COND")
'Me.Desconto = RS("Desconto")
Me.Status = RS("status")
Me.Vl_Bruto = RS("Vl_Bruto")
Me.Vl_desc = RS("Vl_desc")
'Me.Vl_Juros = RS("Vl_juros")
' Me.Vl_Total = RS("vl_total")
'Me.Vl_parcelas = RS("Vl_parcelas")
'Me.Data_1a_parc = RS("Data_1a_parc")
'Me.qde_parc = RS("qde_parc")
' Me.FP = RS("FP")
'Me.FPg = RS("FPG")
Me.Pagamento = RS("Pagamento")
'Me.Dtenvio = RS("Dtenvio")
Me.Email_Cli = RS("Email")
Me.email1 = RS("email1")
Me.ENVIADA = RS("ENVIA/EMAIL")
Me.boleto = RS("Gerado/Boleto")
'Me.EMNOTA = RS("EMNOTA")
'Me.CPDF = RS("CPDF")
Me.Fone1_cli = RS("Fone1_Cli")
Me.Fone2_cli = RS("Fone2_cli")
'Me.Fax_Cli = RS("Fax_Cli")

End If
RS.Close
Set RS = Nothing
db.Close
Set db = Nothing

eu uso esse codigo pra buscar os dados pra um forms continuo
mas como que faco pra buscar pro meu subforms pois ele e continuo e tem varios itens no mesmo id

alguem

Ninguem consegue me ajudar?