i am trying to populate a datacombo box based on what has been chosen from another using the following code:

Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset

Dim strProductType As String
strProductType = DataComboType.Text
Dim descSQL As String
descSQL = "SELECT Product.Description FROM ProductType INNER JOIN Product ON ProductType.TypeCode = Product.TypeCode WHERE ProductType.Description= '" & strProductType & "'"
Set RS = Conn.Execute(descSQL)
RS.MoveFirst
Do While Not RS.EOF
DataComboProduct.RecordSource = descSQL
DataComboProduct.ListField = RS.Fields(0)
RS.MoveNext
Loop

However, the second combo box does not populate at all - why is this? Thank you!