stinct dm_ck.mc from inh inner join dm_ck on inh.ckdm = dm_ck.dm"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If Not mrc.EOF Then
With mrc
Do While Not .EOF
Combo1(0).AddItem .Fields(0)
.MoveNext
Loop
End With
Combo1(0).ListIndex = 0
Else
cmdOK.Enabled = False
End If