g
        Dim mrc As ADODB.Recordset
        Dim MsgText As String
        
      
        txtSQL = "select distinct datepart(yy,kqdate) from checkin"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        If mrc.EOF = False Then
            With mrc
                Do While Not .EOF
                    cboYear(0).AddItem .Fields(0)
                    cboYear(1).AddItem .Fields(0)
                    .Move