dim conn
	Set conn = CWLStart.CurrentCompany.Connection 

	 Set SQLResult_DateOfDelivery = conn.Select ("Select * from [FNCUST_GET_PROPERTY_VALUES](<EigenschaftsID>,'<Kontonr>',3,null,null,null) --(NOLOCK)") 
	 If (SQLResult_DateOfDelivery.RowCount > 0) Then 
	 
	 	'Loop for every found property value
	 	Do 

			DateOfDelivery_GUID		= Cint(SQLResult_DateOfDelivery.value(0))
			DateOfDelivery_Count 		= Cint(SQLResult_DateOfDelivery.value(1))
			DateOfDelivery_LoopValue	= Cstr(SQLResult_DateOfDelivery.value(2))

			If (VarType(DateOfDelivery_LoopValue) <> vbEmpty) Then

				DateOfDelivery_TempValue  = GetDateByWeekdayname(DateOfDelivery_LoopValue)
				DateOfDelivery_Difference = DateDiff("d",Date,DateOfDelivery_TempValue)

				If (DateOfDelivery_Difference > 0) And (DateOfDelivery_Difference < DateOfDelivery_FinalValue) Then
					DateOfDelivery_FinalValue = DateOfDelivery_Difference
					'msgbox DateOfDelivery_FinalValue

				End If

			End If

		 	If SQLResult_DateOfDelivery.NextRecord = False Then
		 		Exit Do 
		 	End If 

	 	Loop

	End If