Public clbh_Dates_Datum(600) As DateTime
Dim connectionString, date_sql, identifier(600, 4) As String
    	Dim conn As SqlCeConnection
    	Dim cmd As SqlCeCommand
    	Dim reader As SqlCeDataReader
        DB_Short_Count=0
    	connectionString = "datasource = "& db_path
    	conn = New Sqlceconnection(connectionString)
    	date_sql= Replace(SQL,"Select * ", "Select Distinct CLHDates_Datum ")
    	date_sql = date_sql & " Order by CLHDates_Datum"
    	Try
    		conn.Open()
    		cmd=New SqlCeCommand(date_sql, conn) 
    		reader = cmd.ExecuteReader
    		Do While reader.Read()
    			day_count=day_count+1
    			clbh_Dates_Datum(day_Count) = FormatDateTime(reader( _
      "CLHDates_Datum").ToString, DateFormat.GeneralDate)				
Loop
reader.Close()
    	conn.Close()
    	Catch ex As Exception
    		conn.Close
    		msgbox(ex.Message)
    	End Try
    	For a As Integer = 1 To day_count
    		clbh_Dates_Event_Count(a)=0
	    		conn.Open()
	    		cmd=New SqlCeCommand(SQL & " Where CLHDates_Datum = #" & _
  clbh_Dates_Datum(a) & "# Order by CLHDates_E_Start", conn) 
	    		reader = cmd.ExecuteReader

cmd=New SqlCeCommand(SQL & " Where CLHDates_Datum = #" & clbh_Dates_Datum(a) & _
  "# Order by CLHDates_E_Start", conn)