Oops me and my big mouth :">
This get me the GUI up and running
Func ODBCsources($h_controlID, $s_RegEntry, $s_Type)
Local $s_List, $i_dsncount, $s_VarNm, $s_Value, $i
$i = 1
$s_VarNm = RegEnumVal($s_RegEntry, $i)
If @error Then Return
$s_Value = RegRead($s_RegEntry, $s_VarNm)
While $s_VarNm <> ""
$s_VarNm = RegEnumVal($s_RegEntry, $i)
If @error Then ExitLoop
$s_Value = RegRead($s_RegEntry, $s_VarNm)
If $s_VarNm <> "" Then
GUICtrlCreateListViewItem($s_VarNm & "|" & $s_Type & "|" & $s_Value, $h_controlID)
$i += 1
$i_DSNcount += 1
EndIf
Wend
EndFunc