Try replacing the ODBCsources function with this one:
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)
$s_Value = RegRead($s_RegEntry, $s_Varnm)
While $s_VarNm <> ("No more data is available." & @CRLF)
$s_VarNm = RegEnumVal($s_RegEntry, $i)
$s_Value = RegRead($s_RegEntry, $s_Varnm)
If $s_Varnm <> ("No more data is available." & @CRLF) Then
GUICtrlCreateListViewItem($s_VarNm & "|" & $s_Type & "|" & $s_Value, $h_controlID)
$i += 1
$i_DSNcount += 1
EndIf
Wend
EndFunc