ผมใช้ Shaped Recordset (ADO) แสดงผลใน Main or Sub Form แต่เกิดปัญหาตรง Sub Formที่แสดงต่าออกมาเพียง Record เดียว ความเป็นจริงมีค่ามากกว่า ดูได้จาก RecordCount งงมากเลย
Private Sub Form_Load()
strConn = "Data Provider=Microsoft.Jet.OLEDB.4.0;"
strConn = strConn & "Data Source = " & _
               "C:\PrisonDB_New.mdb"

Set Connc = New ADODB.Connection
With Connc
        .ConnectionString = strConn
        .Provider = "MSDataShape"
        .Open
End With

shpCmd = "SHAPE {SELECT* from tblConvict} " & _
               "APPEND ({SELECT ConId, Index, LawId from tblAccuse} " & _
               "RELATE ConId TO ConId) AS chapConAcc "
   Set rsC = New ADODB.Recordset
    rsC.Open shpCmd, Connc, adOpenKeyset, adLockPessimistic

ShowData
    
End Sub


Private Sub ShowData()
'   ---------- Main Form Convict Data -------------
    On Error Resume Next
    txtConId = Trim(rsC!ConId)
    txtCId.Value = Trim(rsC!CId)
    gstrCId = rsC!ConId
    txtgstrCid.Value = gstrCId
    cbPrefix.Value = Trim(rsC!PrefixId)
    txtFName.Value = Trim(rsC!FName)
    txtLName.Value = Trim(rsC!LName)
    txtBDate.Value = Format(Trim(rsC!BDate), "Long Date")
    txtOld.Value = "ÍÒÂØ   " & ((Year(Now()) + 543) - (Year([txtBDate]) + 543)) & "   " & "»Õ"
    
    PicPath.Value = rsC!PicPath
        If PicPath.Value = "" Or IsNull(PicPath.Value) Then
            Pict.Picture = ""
        Else
            Pict.Picture = PicPath.Value
        End If
    txtFName.SetFocus
    lblPosition.Caption = "àäÍÃì´ : " & rsC.AbsolutePosition & " / " & rsC.RecordCount
   
'   -------- SubForm --------------------
rsCA = rsC("chapConAcc")
CountAcc = rsCA.RecordCount
'rrstClone = rsCA.Bookmark
rsCA.MoveLast
Forms!frmConvict!frm_sAccuseUnbound.Form.Text74 = CountAcc
Do Until rsCA.EOF
        Forms!frmConvict!frm_sAccuseUnbound.Form.txtIndex = rsCA!Index
        Forms!frmConvict!frm_sAccuseUnbound.Form.txtConId = rsCA!ConId
        Forms!frmConvict!frm_sAccuseUnbound.Form.cbLaw = rsCA!LawId
        Forms!frmConvict!frm_sAccuseUnbound.Form.cbInstance = rsCA!InstanceId
rsCA.MoveNext
a = a + 1
Loop

End Sub

ช่วยผมหน่อยครับติดปัญหาตรง Sub Form มานานแล้ว จริง ๆ แล้วมีถึง 3 Sub Form แสดงใน Main BD นี้ผมจะนำไปใช้ที่ทำงาน เรือนจำ น่ะครับ พอดีจะพัฒนาใหม่ ศึกษา Code ตัวเก่าจะเป็นลักษณะ Bound Form มี Code นิดหน่อย