With LK_ScheduleActivityBO1

      .FillScheduleTable(m_intQueryedID, m_intContactRecordID, m_ScheduleType)

      Select Case m_intLoad

                 Case FormLoadBy.Record_Edit

                            .SeekToPrimaryKey(m_intRecordID) ' Move to the requested edit record

                            .Edit()

                Case FormLoadBy.Record_New

                            .Add()

                            .Edit()

End Select

 cboScheduleType.SelectedValue = 1    '  m_CallType

End With