Cascade List Box Code Problem

I have 2 tables cD Group and Cd Name
2 forms CD Group and Name
I want to populate the fields in the cd Name form
When someone selects CD Group field
Mormon Tabernacle Chior

CD Name relates back only cd names to the cd group
God Bless America

Here is the coding
Row Source CD Group
SELECT DISTINCT [CD Group with Name].[CD Group] FROM [CD Group with Name] ORDER BY [CD Group with Name].[CD Group];


Event Procedure After Update
CD Names
SELECT [CD Group with Name].[CD Name] FROM [CD Group with Name] WHERE ((([CD Group with Name].[CD Group])=Forms!frmCDs!cboGroup.value));

SQL Query

Field CD NAme
Table CD Group with Name
Field CD Group
Table CD Group with Name
[Forms]![frmCDs]![cboGroup].[value]

Private Sub Command8_Click()
On Error GoTo Err_Command8_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Track Table Test"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command8_Click:
Exit Sub

Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click

End Sub

Private Sub fldCDGroups_AfterUpdate()

End Sub

Private Sub fldCDName_AfterUpdate()

End Sub

Thanks,
for any help

mikevds@optonline.net