AdoCommand1.CommandText:='CREATE TABLE DIAGNOSIS (DiagnosisID INTEGER, '+
                            'IllnessName VARCHAR(20), TreatmentRequiered BIT, SymptomOne VARCHAR(20), SymptomTwo VARCHAR(20), SymptomThree VARCHAR(20), SymptomFour VARCHAR(20), ' +
                            'PRIMARY KEY(DiagnosisID))';