SQL Server Events

Ok, I'm probably just old, tired and slow but I am having an extremely difficult time getting the Calendar to connect to a SQL Server 2000 database and then populate the events.

Does anyone have a function or small sample that they could share?

Thanks!

Ok.  After some sleep and some time not thinking about it at all, I took another look and figured it out enough to get done what I need.  It's actually pretty simple.

With rsDays
        .Open sql, db, adOpenForwardOnly, adLockReadOnly
       
        Do While Not .EOF
            Set NewEvent = Calendar.DataProvider.CreateEvent
       
            NewEvent.StartTime = CDate(!StartDate)
            NewEvent.EndTime = DateAdd("d", 1, CDate(!EndDate))
            NewEvent.AllDayEvent = True
            NewEvent.Label = !RequestTypeID
            NewEvent.Subject = !FirstName & " " & !LastName & "-" & !RequestType
            NewEvent.Body = !FirstName & " " & !LastName & "-" & !RequestType
            'NewEvent.ReminderSoundFile = ".."
           
            Calendar.DataProvider.AddEvent NewEvent
            Calendar.Populate
   
            .MoveNext
        Loop
        .Close
    End With